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NUM 


$8060 


SECTION 8 PARAMETERS 


0267 


P0026 


C805 


DRE010 


LDA* 


DRT026 


HAS THIS 


0268 


P0027 


010* 




SAZ 


DRE007-*-! 


A RE-ENTER 


0269 


P0028 


08** 




CLR 


A 


CALL 


0270 


P0029 


6802 




STA* 


ORT026 




0271 


P002A 


1CE8 




JMP* 


<DRE003) 


YES EXIT 


0272 


P002B 


0000 


DRT026 


NUM 


* 


RE-ENTER CHECK 


0273 


P002C 


08*2 


DRE007 


CLR 


Q 


NO CONTINUE 


027% 


P0020 


*B3C 




STQ* 


DRT007 


SECTION NO. 


0275 


P002E 


0AFE 




ENA 


-1 




0276 


P002F 


6817 




STA* 


DRT008 


SECTION OROINAL 


0277 


P0030 


CBED 




LDA* 


DRT000 


GET SECTIONS 


0278 


P0031 


6828 




STA* 


DRT028 


FOR END OF TEST 


0279 


P0032 


5*20 




RTJ- 


< MSI NIT) 


BUILO TEST ERROR FILE 



00260 
00261 
00262 
00263 
0026* 
00265 
00266 
00267 
00268 
00269 
00270 
00 271 
00272 
00273 
0027% 
00275 
00276 
00277 
00278 
00279 



0281 




***************************** 


0282 




* ''.:■: 






0283 




■• . * —". ''..'- 




SECTION SE. 


0284 




* 






0285 




***************************** 


0287 P0033 


E813 


ORE012 


LOQ* 


ORT0 08 


0288 P003* 


0A0O 


ORE030 


ENA 


$0 


0289 PO 035 


087* 


. T ■• " 


EAQ 


A ~- 


0290 P0036 


0111 




SAN 


ORE020-*-l 


0291 P0037 


181C 




JMP* 


OR.E035 


- 0292 POO 38 


C8E5 


OREO 20 


LOA* 


ORT000 


0293 P0039 


0O01 




INQ 


1 


029<f P003A 


A26B 




ANO- 


BITOO.Q 


0295 P003B 


0111 




SAN 


0RE015-*-l 


0296 P003C 


18F7 




JMP* 


ORE030 


0297 P003D 


*809 


DRE015 


STQ* 


DRT008 


0298 P003E 


0FA8 




OLS 


8 


0299 P003F 


*B2A 




STQ* 


DRT007 


0300 P00*0 


5800 




RTJ 


0RE085 


poo*i 


0171 








0301 P00*2 


E8 27 




LOQ* 


ORT0 07 


0302 P00*3 


0F28 


ORE 017 


QRS 


8 


0303 POO** 


FA 03 




LOQ* 


ORT010»Q 


030* P00*5 


1201 




JMP- 


1«Q 


0305 P00*5 


0000 


ORT008 


NUM 


* 



GET THE OROINAL 

HAS LAST SECTION EXECUTEO 

YES CHECK FOR REPEAT TEST 
GET TEST SECTIONS 

LOOK FOR LOADED 

TEST SECTION 
KEEP LOOKING 
NEW OROINAL 

NEW SECTION NO. 
CLEAR CONTROLLER 



FIND THIS SECTION 
GO EXECUTE SECTION 
SECTION OROINAL 



00281 
00282 
00283 
0028* 
00285 



00287 
00288 
00269 
00290 
00291 
00292 
00293 
0029% 
00295 
00296 
00297 
00298 
00299 
00300 

00301 
00302 
00303 
0030% 
00305 



60*12300 n 



PAGE 



DRMP8 



PAGE 



DATE! 10/20/71* 



0307 
0308 
0309 
0310 
0311 



********************************* *********************** ********** ****** 

* * 

* SECTION AOORESSES » 

* * 

************************************************************************ 



00307 
00308 
00309 
00310 
00 311 



0313 P0047 02D9 P DRT010 



0314 
0315 
0316 
0317 
031S 
0319 
0320 
0321 
0322 
0323 
324 



P0048 
P0049 
P004A 
P00<»B 
P00«»C 

P004O 

P004E 
P004F 
P0050 
P0051 
P0052 



0351 
03GB 
0H5 
049C 
05D0 
0759 
0882 
09E8 
082B 
0D9C 
0E1C 



AOC 
ADO 
AOC 
AOC 
AOC 
AOC 
AOC 
AOC 
ADC 
AOC 
AOC 
AOC 



SECTQ-1 
SECTi-1 
SECT2-1 
SECT3-1 
SECTt»-l 
SECT5-1 
SECT6-1 
SECT7-1 
SECTB-1 
SECT9-1 
SECTA-1 
SECTO-1 



BIT CLOCK ADJ/RD-WR BUFFER ADOR 00313 

SECTOR COUNTER 00314 

ISA REGISTER 00315 

ICA/FCA REGISTER 00316 

SECTOR OVERRANGE/OATA REGISTER 00317 

GUAROED ADDRESS 00318 

TRACK ADORESSING 00319 

WORST CSAE DATA 00320 

MAINTENENCE SECTION 00321 

AUTO LOAD/PROTECT 00322 

CHECKWORO CHECK 00323 

CLEAR TIMING ERROR 00324 



0326 
0327 
0328 
0329 
0330 



************************************************************************ 

* * 

* END OF TEST CHECK • 

* * 
************************************************************************ 



00326 
00327 
00328 
00329 
00330 



0332 


P0053 


D305 


0RE035 


RAO* 


DRT009 


0333 


P0054 


C8B4 




LOA* 


BIAS 


033V 


POO 55 


5402 




RTJ- 


(STOP) 


0335 


P0056 


1805 




JMP* 


DRE040 


0336 


P0057 


SOU 




NUM 


$3 014 


0337 


P0058 


0000 


ORT0Q9 


NUM 


* 


0338 


P0059 


0000 


DRT028 


NUH 


* 


0339 


P005A 


0000 


DP.T027 


NUM 


* 


0340 


P005B 


C071 


ORE040 


LOA- 


81 TO 6 


0341 


P005C 


5406 




RTJ- 


(JUMP) 


0342 


P005O 


1803 




JMP* 


0RE047 


0343 


P005E 


C8AA 


DRE045 


LOA* 


BIAS 


0344 


P005F 


540 3 




RTJ- 


(EXIT) 


0345 


P0060 


C075 


DRE047 


LOA- 


BIT10 


0346 


P0061 


5406 




RTJ- 


(JUMP) 


0347 


P0062 


58B0 




RTJ* 


ORE003 


0348 


P0063 


18C8 




JMP* 


ORE0n7 



PASS COUNT 
SECTIONS RAN 
ERROR TOTALS 
REPEAT TEST 

CHECK 
YES 
NO 

CHECK RE-ENTER PARAMETERS 

YES 
NO 



00332 
00333 
00334 
00335 
00336 
00337 
00338 
00339 
00340 
00 341 
00342 
00343 
00344 
00345 
00346 
00347 
00348 
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0350 






************* 


0351 






* 




0352 






* 




0353 






* 




0354 






************* 


0356 


P0064 


0000 


ORF050 


NUM 


0357 


P0065 


C8A3 




LOA* 


0358 


P0066 


5432 




RTJ- 


0359 


P0067 


1803 




JMP* 


0360 


P0068 


8002 




NUM 


0361 


P0069 


0000 


DRT007 


NUM 


0362 


P006A 


CO 75 


DRF052 


LOA- 


0363 


P006B 


5406 




RTJ- 


0364 


P006C 


58A6 




RTJ* 


0365 


P006n 


C070 




LOA- 


0366 


P006E 


5406 




RTJ- 


0367 


P006F 


1802 




JMP» 


0368 


P0070 


18C2 




JMP* 


0369 


P0071 


F8F7 


DRE055 


LOQ* 


0370 


P0072 


18G0 




JMP* 


0372 


P0073 


0000 


0RE125 


NUM 


0373 


P0074 


C8F4 




LOA* 


0374 


P0075 


A082 




AN9- 


0375 


P0076 


0874 




EAQ 


0376 


P0077 


68F1 




STA* 


0377 


P0078 


1CFA 




JMP* 



************************************************************************ 00350 

• 00351 
END SECTION CHECK » 00352 

* 00353 
************************************************************************ 00354 



BIAS 
(STOP) 
ORE052 
$8002 

* 

BIT10 

f JUMP) 

DRE003 

BIT05 

(JUMP) 

DRE055 

DRE012 

ORT007 

OREO 17 



DRTO07 

HFFOO 

A 

ORT007 
C0RE125) 



*** 
*** 

*** 
10 WORD STOP AT END OF SECTION ♦»♦ 
SECTION NUMBER *»* 

CHECK FOR RE-ENTER •»» 

PARAMETERS 

YES 
CHECK REPEAT SECTION 



CONTINUE TO NEXT SECTION 



INSERT ERROR NO. 

FROM <Q) 
FORM SSEE CODE 

EXIT 



00356 
00357 
00358 
00359 
00360 
00361 
00362 
00363 
00364 
00365 
00366 
00367 
00368 
00369 
00370 



00372 
00373 
00374 
00375 
00376 
00377 



0379 
0380 
0381 
0382 
0383 
0384 
0385 



*************** v *********************************************** ********* 00379 

* » 00380 

* I/O CYCLE » 00 381 

* ALL SECTIONS PERFORM I/O AND ERROR REPORTING, EXCLUDING » 00 382 

* DATA ERRORS, THROUGH THE I/O CYCLE. » 00383 

* * 00384 
************************************************************************ 00385 



0387 
0388 
0389 
0390 
0391 
0392 



************************************************************************ 00387 

* .» 00388 

* INTERRUPT PROCESSOR * 00389 

* RE-ENARLE INTERRUPTS AFTER ALARM ACKNOWLEDGE * 00390 

* » 00 391 
************************************************************************ 00392 
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0394 P0079 


0000 DRE230 


NUM 


•* 


0395 P007A 


n«t:E 


LOA* 


DRTOH7 


0396 P007'* 


R06E 


EOR- 


RIT03 


0397 P007G 


68EC 


STA* 


DRT007 


0398 P007O 


A081 


ANO- 


HOOFF 


0399 P007E 


686C 


STA* 


DRT208 


0400 P007F 


C86C 


LOA* 


IOCYL 


0401 P0080 


6862 


STA* 


ORT200 


0402 P0081 


E400 


LOQ*- 


ORT013 


P0082 


0130 P 






0403 P0083 


4860 


STQ* 


DRT201 


0404 P0084 


onoi 


ENQ 


1 


0405 P0085 


4400 


STQ*- 


DRT013 


P0086 


0130 P 






0406 P0087 


F400 


LOQf 


DRT014 


PQ088 


0181 P 






0407 P0089 


48 5F 


STQ* 


ORT206 


0408 P008A 


C400 


LDA* 


A5+WEST3 


P0088 


0E83 P 






0409 P008C 


6858 


STA* 


DRT202 


0410 P098O 


F86A 


LOO* 


CKST07 


0411 P008F. 


485R 


STQ* 


ORT207 


0412 P003F 


0844 


CLP 


A 


0413 P0090 


6867 


STA* 


CKST07 


0414 P0091 


6400 


STA*- 


A5+WFST3 


P0092 


0FB3 P 






0415 P0093 


6400 


STAf 


DRT012 


P0094 


01AF P 






0416 P0095 


6400 


STA*- 


ORT014 


P0096 


0181 P 






0417 P0097 


0C09 


ENQ 


9 


0418 P0093 


C840 


LOA* 


ORT203 


n419 P0099 


AOOO 


AND 


=N'S0480 


P009A 


0480 






0420 P0093 


0872 


EAQ 


Q 


0421 P009C 


4400 


STQ*- 


RECK02 


P009O 


0167 P 






0422 P009E 


4848 


STQ* 


DRT204 


0423 P009F 


583D 


RTJ* 


DRE225 


0424 PQOAO 


0115 


SAN 


ORE2 03 


0425 P00A1 


0A03 


FNA 


3 


0426 P00A2 


6400 


STAf 


RECK02 


P00A3 


0167 P 






0427 P00A4 


5417 


RTJ- 


CFIXDLY) 


0428 P00A5 


03F8 


NUM 


1000 


0429 POOAG 


C83F DRE203 


LOA* 


DRT203 


0430 P00A7 


6848 


STA* 


CKST02 


0431 P00A8 


A070 


&ND- 


BIT05 


0432 P0OA9 


0106 


SAZ 


ORF205 


0433 POOAA 


0C01 


ENO 


1 


043«t 0OOA3 


4860 


STQ* 


FN02 



INT ERRORS ARE ** X8 
** X9 
** XA 

KEEP CALLERS ERROR POINTER 
SAVE I/O CYCLE 

CALLER AND 

FXIT SW 

STATUS 

SET EARLY EXIT 

SAVE FN/RD/WR 

SWITCH 
SAVE STATUS 3 

EQUIP ADDRESS 
KILL STATUS 2 MASK AFTER 
TEMP SAVE 



COPY ST1/ST2 ONLY 
CLEAR INT SWITCH 
SET FN 



KEEP ANY PANEL 
SWITCH BITS 



ST1 VALUE 



SECTION 11 CHECK 
NO-SKIP 
EXPECT BUSY AFTER CLEAR 



DELAY AFTER TIMING ERROR 
TO PREVENT MULTIPLE INTS 
GET ST1 VALUE 

IS ALARM EXPECTED 
NO-SKIP 
SET UP CLEAR 
CONTROLLER 



00 394 
00395 
00396 
00397 
00398 
00399 
00400 
00 401 
00«»02 

00403 
00404 
00405 

00406 

00407 
00408 

00409 
00410 
00411 
00412 
00413 
00414 

00415 

00416 

00417 
00418 
00419 

00420 
00 421 

00422 
00423 
00424 
00425 
00426 

00427 
00428 
00429 
00430 
00431 
00 432 
00 433 
00434 
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0435 POOAC 


F0 77 




ADQ- 


eiT12 


0436 POOAO 


485F 




STQ* 


FN03 


0437 POOAE 


E83C 




LDQ* 


ORT208 


0438 POOAF 


583C 




RTJ* 


IOCYL 


0439 POOBO 


0112 


DRE215 


SAN 


DRF210 


0440 P00B1 


C834 




LDA* 


DRT203 


0441 P00B2 


1802 




JMP* 


0RF215 


0442 P00B3 


C833 


ORE210 


LOA* 


ORT204 


0443 P00B4 


683E 


DRE215 


STA* 


CKST02 


0444 PQ0B5 


5827 




RTJ* 


0RF225 


0445 POOB& 


0117 




SAN 


0RE217 


0446 P0 0B7 


OAOO 




ENA 


$0 


0447 P00B8 


683A 




STA* 


CKST02 


0448 P00S9 


0A09 




EMA 


9 


0449 POOBA 


6400 




STA* 


RECK02 


P00B9 


0167 P 








0450 POOBC 


5417 




RTJ- 


(FIXOLY) 


0451 POOBO 


0064 




NUM 


100 


0452 POO BE 


5400 


0RE217 


RTJ+ 


ORF400 


POOBF 


0297 P 








0453 




* 






0454 POOCO 


C827 




LDA* 


DRT205 


0455 P00C1 


684A 




STA* 


FN02 


0456 P0OC2 


EOOO 




LDQ 


=N$1001 


P00C3 


1001 








0457 P00C4 


4848 




STQ* 


FN03 


0458 P0OC5 


E825 




LDQ* 


ORT208 


0459 POOCfi 


5825 




RTJ* 


iosyl 


0460 P00C7 


5422 


ORF220 


RTJ- 


(OSELIN) 


0461 P00C3 


0010 




NUM 


80010 


0462 P00C9 


C819 




LOA* 


DRT200 


0463 POOCA 


6821 




STA* 


IOCYL 


0464 PQ0C3 


E818 




LDQ* 


DRT201 


0465 POOCC 


4400 




STQ* 


DRT013 


POOCO 


0180 P 








0466 POOCE 


E81A 




LDQ* 


DRT206 


0467 POOCF 


4400 




STQf 


DRT014 


POOOO 


01B1 P 








0468 P00D1 


C813 




LDA* 


DRT202 


0469 P00O2 


6400 




STA+ 


A5+WEST3 


P00O3 


0EB3 P 








0470 P00O4 


E815 




LDQ* 


DRT207 


0471 P00O5 


4822 




STQ* 


CKST07 


0472 P00O6 


0A18 




ENA 


$18 


0473 P0007 


6810 




STA* 


DRT205 


0474 POODS 


C890 




LOA* 


ORT007 


0475 P00O9 


B06E 




EOR- 


BIT03 


0476 POODA 


688E 




STA* 


DRT007 


0477 POOOB 


1C90 




JMP* 


(ORE200) 


0479 POOOC 


0000 


0RE2?5 


NUM 


* 


0480 POODO 


OAOB 




ENA 


.153 



DATE* 10/20/74 



**** CLEAR CONTROLLER **** 
SKIP FOR EOP ONLY 
GET ST1 VALUE 

GET VALUE PASSEO FROM 

CALLER 
SECTION 11 CHECK 
NO-SKIP 
STATUS AFTER CLEAR TIMING 

INT 

AFTER CLEAR 

WAIT FOR CLEAR TIMING 

INT 
CLEAR CONT. FOR UNEXPECTED 

ALARM INTERRUPT 
GET ENABLE/DISABLE 

FUNCTION 
SET UP THE 

RR/OD 

***» ENABLE/DISABLE **** 
DESELECT INTERRUPTS 
EOP STATUS BIT POSITION 

RESTORE IOCYL CALLER 
EXIT SWITCH 
ANO WEST3 

REPLACE FN/RO/WR 



REPLACE STATUS 2 MASK 

ENABLE EOP AND ALARM INT 

RESTORE SECTION /ERROR 
NUMBER 

EXIT VIA REGOGNIZE INTERRUPT 



SECTION 11 CHECK 



00435 
00436 
00437 
00438 
00439 
00440 
00441 
00442 
00443 
00444 
00445 
00446 
00447 
00448 
00449 

00450 
00451 
00452 

00 453 
00454 
00455 
00456 

00457 
00458 
00459 
00460 
00461 
00462 
00463 
00464 
00465 

00466 
00467 

00468 
00469 

00470 
00 471 
00472 
00473 
00474 
00475 
00476 
00477 



00479 
00480 
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0481 


P00OE 


E400 




LOQf 


ORT0 08 




POODF 


0046 P 






0482 


POOEO 


0374 




EAQ 


A 


0483 


P00E1 


1CFA 




JMP* 


C0PE225) 


0485 


P00E2 


0000 


DRT200 


NUM 


* 


0486 


PO0E3 


0000 


ORT201 


NUM 


* 


0487 


P00E4 


0000 


ORT202 


NUM 


* 


0488 


P00E5 


0000 


DRT20 3 


NUM 


* 


0489 


P00E6 


0000 


DP.T2 04 


NUM 


* 


0490 


P00E7 


0018 


DRT2Q5 


NUM 


*18 


0491 


P00E8 


0000 


ORT206 


NUM 


* 


0492 


P00E9 


0000 


OPT207 


NUM 


* 


0493 


POOEA 


0000 


0!?T208 


NUM 


* 


0495 






***************************** 


0496 






* 






0497 






* 




CHECK STATi 


0498 






* 






0499 






************* **************** 


0501 


PQ0E3 


0000 


IOCYL 


NUM 


* 


0502 


POOEC 


5886 




RT.J* 


0R1125 


0503 


POOED 


034U 




CLE? 


A 


0504 


POOEE 


6847 




STA* 


ERTOOO 


0505 


POOEF 


541C 


DREQ68 


PTJ- 


(HOG» 


0506 


POOFO 


5412 


CKSTOO 


RTJ- 


(CKST) 


0507 


P00F1 


0000 


CKST01 


NUM 


* 


0508 


P00F2 


0000 


CKST02 


NUM 


* 


0509 


PO0F3 


0000 


CKST03 


NUM 


* 


0510 


P00F4 


0000 


CKST04 


NUM 


* 


0511 


POOFS 


0000 


CKST05 


NUM 


* 


0512 


P00F6 


0000 


CKST06 


NUM 


* 


0513 


P00F7 


0000 


CKST07 


NUM 


* 


0514 


P0 0F8 


0000 


CKSTOH 


NUM 


* 


0515 


P00F9 


5835 


CKST09 


RTJ» 


EREOOO 


0516 


POOFA 


5855 


CK5T10 


RTJ* 


RPEOOO 


0517 






* 






0518 






* 






0519 


POOFS 
POOFC 


C800 
00R3 




LDA 


DRT012 


0520 


POOFH 


0108 




SA7 


ORE070-*-l 


0521 


POOFE 
PQOFF 


C800 
FF20 




Loa 


DRT0 02 


0522 


P0100 


0105 




SAZ 


OP.E070-»-i 


0523 


P0101 


5423 




PTJ- 


(SELTN) 


0524 


P0102 


0010 




NUM 


$0010 


0525 


P0103 


0064 




NUM 


100 


0526 






* 






0527 






* 







I/O CYCLE CALLER 

EXIT SWITCH STATUS 

WEST? ADDRESS 

STATUS FOR CKST02 

STATUS ORFD WITH PANEL SWITCHES 

INT FUNCTION 

FN/R9/WR 

CHECK STATUS MASK <2> 

ERROR CODE WITH ORED BIT03 



ERROR POINTER 
SET ERROR CODE 

DO NOT RELEASE CONTROL 

STATUS 1 MASK 

VALUE 

STATUS 3 MASK 

VALUE 

STATUS 4 MASK 

VALUE 

STATUS 2 MASK 

VALUE 

ERROR RETURN ••* ERROR XO •»» 
NORMAL RTN CHECK REPEAT 

SECTION 2 OVERLAYS BOTH RETURN 
POINTS 

CHECK INTS THIS SECTION 

NO-SKIP 
OPERATOR REQUEST INTS 

NO-SKIP 

YES-SELECT INTERRUPT 
EOP STATUS BIT POSITION 
INT TIMER •• TEST MUST 

GET CONTROL FROM MONITOR 

WITHIN THIS TIME 



00481 

00482 
00483 



00485 
00486 
00487 
00488 
00489 
00490 
00 491 
00492 
00 493 



00495 
00496 
00497 
00498 
00499 



00501 
00502 
00503 
00504 
00505 
00506 
00507 
00508 
00509 
00510 
00511 
00512 
00513 
00514 
00515 
00516 
00517 
00518 
00519 

00520 
00521 

00522 
00523 
00524 
00525 
00526 
00527 
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0528 P0104 0079 P 

0529 P0105 0020 P 

0530 P0106 1800 
P0107 00A1 



ADC 

ADC 

OREC70 JMP 



DRF200 
DRT002 
ORE065 



INTERRUPT PROCESSOR 
ADDRESS OF BTBT DATA 
GO TO EITHER FN-RD-WR 



00528 
00529 
00530 



0532 
0533 
0534 
0535 
0536 



******************************************************* «*»**««***«»***** 

* * 

* FUNCTION * 

* » 

*************************************************************** »**»V>(M 



00532 
00533 
00534 
00535 
00536 



0538 P0108 0A01 

0539 P01O9 

0540 P010A 

0541 P010B 

0542 P010C 

0543 P010O 

0544 -P010E 

0545 POIOF 

0546 P0110 

0547 P0111 



0A01 


FNOO 


ENA 


1 


682C 




STA* 


ERT000 


5410 


FN01 


RTJ- 


(FN1 


0000 


FN02 


NUM 


* 


0000 


FN03 


NUM 


* 


0000 


FN04 


NUH 


* 


0000 




NUM 





581F 




RTJ* 


ERFOOO 


583F 




RTJ* 


RPF000 


1852 




JMP* 


RECKOO 



FUNCTION ERROR CODE 



FUNCTION CODE 

RESPONSE CONTROL RR/OO 

RESPONSE TIMER 

NO 17X6 

ERROR RETURN *** ERROR XI *** 
NORMATt RTN CHECK REPEAT COND 



00536 
00539 
005*0 
00541 
00542 
00543 
00544 
00545 
00546 
00547 



0549 
0550 
0551 
0552 
0553 



***************************************** ********************** ********* 

* * 

* REAO * 

* * 
************************************************************************ 



00549 
00550 
00551 
00552 
00553 



0555 
0556 
0557 
0558 
0559 
0560 
0561 
0562 
0563 
0564 
0565 
0566 
0567 
0568 



P0112 
P0113 
P011«t 
P0115 
P0116 
P0117 
P0118 
P0119 
POllfl 
P011B 
P011C 
P011D 
P011E 
P011F 



0AO6 
6822 
541A 
0001 
0001 
OFOE 
0000 
0000 
2004 
0000 
18F7 
5811 
5831 
1844 



RDOO 

RD01 
R002 
RD03 



RD04 
P.D05 



EN A 

STA* 

RTJ- 

NUM 

NUN 

ADC 

NUM 

NUM 

NUM 

NUM 

JMP* 

RTJ* 

RTJ* 

JMP* 



6 

ERT000 

<RD) 

1 

1 

RDBUF 





$2004 

* 

RD01 
ERFOOO 
RPEOOO 
RECKOO 



0=A/Q l=OSA 
TRANSFER LENGTH 
BUFFER 

NOT 

USED 
RESPONSE-HANG IF BUSY 

MONITOR BUSY RTN 

ERROR RETURN *** ERROR X6 **< 

NORMAL RTN CHECK REPEAT COND 



00555 
00556 
00557 
00558 
00559 
00560 
00561 
00562 
00 563 
00 564 
00565 
00566 
00567 
00568 



0570 
0571 
0572 
0573 
0574 



************************************************************************ 

* * 

* WRITE * 

* * 
v* ******************************************************* *************** 



00570 
00571 
00572 
00573 
00574 
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ORMP8 



PAGF m 



DATE* 10/20T4 



0576 P0120 


0A07 


WROO 


ENA 


7 


0577 PQ121 


681'+ 




STA» 


ERTOOO 


0578 P0122 


54 IB 


WR01 


RTJ- 


(WR) 


0579 P0123 


0001 


WR02 


NUM 


1 


0580 P0124 


0001 




NUM 


1 


0581 P0125 


1B0E P 


WR03 


ADC 


WR9UF 


0582 P0126 


0000 




NUM 





0583 P0127 


0000 




NUM 





0534 P0123 


2000 


WR04 


NUM 


$2000 


0585 P0129 


0000 


Wt?05 


NUM 


* 


0586 P012A 


18F7 




JMP* 


WR01 


0587 P012B 


5803 




RTJ* 


EREOOO 


0588 P012C 


5823 




PTJ* 


RPE000 


0589 P012O 


1836 




JMP* 


RECKOO 


0591 




u**************************** 


059? 




* 






0593 




* 




ERROR 


0594 




* 






0595 




***************************** 


0597 P012E 


0000 


ERFOOO 


NUM 


* 


0598 P012F 


O800 




RAO 


ORT027 


P0130 


FF29 








0599 P0131 


5800 




RTJ» 


ERF020 


0600 P0132 


E8F3 




LOO* 


EREOOO 


0601 P0133 


4809 




STQ» 


ERT0C4 


0602 P0134 


COOO 


ERE015 


LOA- 





0603 P0135 


0000 


ERTOOO 


NUM 


* 


0604 P0136 


B800 




EOR 


DPT 07 


P0137 


FF31 








0605 P013S 


6802 




STA* 


ERT003 


0606 P0139 


5414 




RTJ- 


(ERROR) 


0607 P013A 


0000 


ERT003 


NUM 


* 


0608 P013B 


0158 P 




AOC 


RPE0 07 


0609 P013C 


000!) 


ERT004 


NUM 


* 


0610 P013D 


1CF0 




JMP* 


(EREOOO) 


0611 P013E 


0000 


ERE020 


NUM 


* 


0612 P013F 


C800 




LDA 


ORTO00 


POl^O 


FEDD 








0613 P0141 


012C 




SAP 


ERE030-*-l 


0614 P0142 


C049 


ERT002 


LOA- 


INFORM 


0615 P0143 


A0 6B 




AND- 


QITOO 


0616 P01«»<» 


0105 




SAZ 


ERE025-*-i 


0617 P0145 


COOO 




LDA 


=XERT002 


P0145 


01W P 








0618 P0147 


6400 




STA*- 


MONRTN 


P0U8 


0005 o 








0619 P0149 


5401 




RTJ- 


(CONTROL) 



ERROR NO. 



0=A/Q l=OSA 
TRANSFER LENGTH 
BUFFER ADORESS 

NOT 

USED 
RR/OD RESPONSE CONTROL 
MILLISEC RESPONSE TIMER 
MONITOR SUSY RETURN 

ERROR RETURN **» ERROR 



X7 **» 



NORMAL RTN CHECK REPEAT COND 



INC TEST ERROR COUNT 

BELL CHECK 

GET THE CALLERS AORESS 

FOR ERR MSG 
GET ERROR 

NO. 
AOO IN SECTION NO. 



SSSEE 

REPEAT CONDITIONS ADDRESS 

ERROR RTN AODRESS 

NO-EXIT 

CHECK FOR MAINTENANCE 

BELL 
YES CHECK TTY BUSY 

SKIP-NO 

YES RELEASE 

CONTROL 



PTC2 
PTC2 



PTC2 



00576 
00577 
00578 
00579 
00580 
00581 
00582 
00583 
00584 
00585 
00586 
00587 
00588 
00589 



00591 
00592 
00593 
00594 
00595 



00597 
00598 

00599 
00600 
00601 
00602 
00603 
00604 

00605 
00606 
00607 
00608 
00609 
00610 
00611 
00612 

00 613 
09 614 
00615 
00616 
00617 

00618 

00619 
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n 



n 



o 



o 



c 






o 



v. 



ORMP30 



0620 P014A 0C01 

0621 P014B COOO 
P014C OFOn P 

0622 P014D 5408 

0623 P014E 1CEF 





PAGE" 


15 




ERE025 


ENQ 
LOA 




1 
=XBELL 


ERE030 


RTJ- 
JMP* 




(TYPFOUTJ 
(ERE020) 



DATE! 10/20/74 



EXIT 



00620 
00621 

00622 
00623 



0625 
0626 
0627 
0628 
0629 



************************************************************************ 

*■-•■. ■» 

* REPEAT CONDITIONS AFTER ERROR CHECK * 

* ■ * 
*****************************************************.******************* 



00625 
00626 
00627 
00628 
00629 



0631 
0632 
0633 
0634 
0635 
0636 
0637 
0638 
0639 
0640 

0641 
0642 

0643 

0644 
0645 
0646 
0647 



P014F 
P0150 
P0151 
P0152 
P0153 
P0154 
P0155 
P0156 
P0157 
P0158 
P0159 
P015A 
P0159 
P015C 
P015O 
P015E 
P015F 
P0160 
P0161 
P0162 



0000 
0A10 
5406 
1802 
1CFB 
C8FA 
i»9FE 
BC07 
0117 
C800 
0058 
0105 
E400 
00 46 
1400 
0030 
1CEF 
18A7 
0422 
03EC 



RPFOOO 



RPE005 



RPE007 



RPE010 

RPE015 

P 0RT024 

P ORT025 



NUM 

EM A 

RTJ- 

JMP* 

JMP* 

LOA* 

INA 

EOR* 

SAN 

LOA 

SAZ 
LOQ* 

JM°* 

JMP* 
JMP* 
AOO 
AOC 



310 

(JUMP) 

RPE005 

CRPEOOO) 

RPE000 

-1 

(E3F000) 

RPE010-*-l 

DRT014 

RPE015-*-l 
DRT008 

OPF015 

CRPEOOO) 
FNOO 
SE225 
SE205 



00631 

CHECK REPEAT COND 00632 

00633 

YES 00 634 

NO- 00635 

DID THIS ROUTINE FIND THE 00636 

ERROR 00637 

PTC3 00638 

NO-SKIP 00639 

YES-WAS ERROR RESULT OF FUNCTION 00640 

YES-SKIP 00641 

NO-GET THE SECTION 00642 

ORDINAL AND REPEAT 00643 

EXIT 00644 

REPEAT FUNCTION 00645 

SECTION 2 ERR ENTRY POINT 00646 

SECTION 2 NORMAL ENTRY POINT 00647 



0649 
0650 
0651 
0652 
0653 



************************************************************************ 

•■* '.■.'■■■'"■ * 

* RECHFCK STATUS * 

* * 
************************************************************************ 



00649 
00650 
00651 
00652 
00653 



0655 
0656 
0657 
0658 
0659 
0660 
0661 
0662 
0663 
0664 



P0163 
P0164 
P0165 
P0166 
P0167 
P0168 
P0169 
P016A 
P016B 
P016C 



0A02 
6800 
5413 
0000 
0000 
0000 
0000 
0000 
0000 
0000 



RECKOO 



RF.CK01 
RECK02 
RECK33 
RECK04 
RFCK05 
RECK06 
RECK07 



ENA 

STA* 

RTJ- 

NIJM 
NUM 
NUM 
NUM 
NUM 
NUM 
NUM 



2 

ERTOOO 

(RECKST) 



STATUS 

VALUE 

STATUS 

VALUE 

STATUS 

VALUE 

STATUS 



1 MASK 

3 MASK 

4 MASK 

2 MASK 



00655 
00656 
00657 
00658 
00659 
00660 
00661 
00662 
00663 
00664 
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DRMP80 



PA-E 16 



DATE* 10/20/74 



0665 
0666 
0667 
0663 
0659 
0670 
0671 

0672 
0673 



P016!) 0000 
P016E 58BF 

P316F 58nF 
P0170 C83F 
P0171 0103 
P0172 CB00 
P0173 FEAC 
P0174 0111 
P0175 lflOF 



RECK08 
RECK09 



ORF075 



NUM 
RTJ» 

RTJ* 
LDA* 
SAZ 

LOA 

ssn 

JMP* 



EREOGO 

RPF0 00 
ORT012 
DRE075-*-l 
DRT0 02 

DRE077-*-l 

nREoao 



VALUE 00665 

ERROR RETURN *♦» ERROR X2 *** 00666 

ERR RTN OVERLAYEO BY SECTION 2 00667 

NORMAL RTN CHECK REPEAT CONO 00668 

DID SECTION REOEST INTS 00669 

NO-SKIP 00670 

YES-OID OPERATOR ALLOW INTS 00671 

YES-SKIP 00672 

NO-CHECK EARLY EXIT 00673 



0675 
P676 
0677 
0678 
0679 



*»*»**********♦******♦************»****»»*****#♦♦*»****»*»»»******♦»»»»» 00675 

* » 00676 
■* RECOGNIZE INTERRUPT ♦ 00677 

* * 00678 
** *e» **** **** ****** *♦»*»»*****♦** «****»«* **»#***»******* **************** 00679 



0681 
0682 
0683 
0634 
0685 
0686 
0687 
0688 
0689 
0690 
0691 
0692 
0693 
0694 



P0176 
P0177 
P0178 
P0179 
P017A 
PQ178 
P017C 
P017O 
P017E 
P017F 
P018H 
P0181 
P0182 
P0183 



OA03 
68 BO 
5421 
0011 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
58AB 
58CB 



OPF077 



RT09 
RI01 
RIO 2 
RI03 
PIOi* 
RI05 
RI06 
RI07 
RIO 8 



ENA 

STA* 

P.TJ- 

NUM 

NUM 

NUM 

NUM 

NUM 

NUM 

NUM 

NUM 

NUM 

RTJ* 

RTJ* 



3 

ERT000 
(RINT) 
17 



EREOOO 
RPE000 



MILLISEC TIMER 

STATUS 1 MASK 

VALUE 

STATUS 3 MASK 

VALUE 

STATUS 4 MASK 

VALUE 

STATUS 2 MASK 

VALUE 

ERROR RETURN 



»*♦ ERROR X3 *»♦ 



NORMAL RTN CHECK REPEAT CONO 



00681 
00682 
00683 
0068<t 
00685 
00686 
00687 
00688 
00689 
00690 
00691 
00692 
00693 
0069V 



0696 
0697 
0698 
0699 
0700 



»v***** 9 * »**«*************************¥********************** *********** 

* . : * 

* MONITOR STATUS ■'."• 

* :,':'"■':..'.:.■■•'■.•'■•''■■» 



00696 
00697 
00698 
00699 
00700 



0702 
0703 
0704 

0705 
0706 
0707 
0708 
0709 
0710 
0711 



P0184 
°0185 
P0186 
P01A7 
P0188 
P0139 
P018A 
P018 3 
P018C 
P0183 
°013E 



C82C 

0102 
1C00 
FF63 
0A04 
68AB 
5MC 
5411 
0000 
0110 
0000 



DRE080 



DRE082 



MNTRH9 



MNTR'31 



LOA» 

SAZ 

JMP 

ENA 

STA* 

RTJ- 

PTJ- 

NUM 

NUM 

NUM 



ORT013 
ORE0 82-»-l 
(IOCYLJ 

4 

ERTOOO 

CHOG) 

tMNTPST) 

* 

$0110 



CHECK FOR EARLY EXIT 

NO-SKIP 

EXIT I/O CYCLE 



MILLISEC TIMER 

OCBS C=CONO B=RIT S=STATUS WORD 

STATUS 1 MASK 



00702 
00703 
00704 

00705 
00706 
00707 
00708 
00709 
00710 
00711 



F,04i?80fl 
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n 



\ / 



"> n 



■^ c 



J O O O 'O "O o o o 



C 3 



^4 





ORMP80 
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0712 


P018F 


0000 


MNTP.0 2 


NUM 


0713 


P0190 


0000 


MNTR03 


NUH 


0714 


P0191 


0000 


MNTRHtf 


NUM 


0715 


P0192 


0000 


HNTP0«5 


NUH 


0716 


P0193 


0000 


MNTR06 


NUM 


0717 


P0194 


0000 


MNTRQ7 


NUM 


0718 


P0195 


0000 


HNTR08 


NUM 


0719 


P0196 


5997 




RTJ* 


0720 


P0197 


58 B7 




RTJ* . 


0722 






****************** 


0723 






* 




0724 






* ' 




0725 






* 




0726 






****************** 


0728 


P0198 


0A05 


RFCK10 


ENA 


0729 


P0199 


689B 




STA* 


0730 


P019A 


5413 




RTJ- 


0731 


PQ19B 


0000 


RFCK11 


NUM 


0732 


P019C 


0000 


RECK12 


NUM 


0733 


P019O 


0000 


RECK13 


NUH 


0734 


P019E 


0000 


RECK14 


NUM 


0735 


P019F 


0000 


RECK15 


NUM 


0736 


P01AQ 


^1000 


RFCK16 


NUH 


0737 


P01A1 


0000 


RECK17 


NUM 


0738 


P01A2 


0000 


RECK18 


NUM 


0739 


P01A3 


588A 




RTJ* 


0740 


P01A4 


58AA 




RTJ* 


0741 


P01A5 


ICOO 




JMP 


..... ... . 


P01A6 


FF44 






0742 


P01A7 


0412 


P ORT015 


AOC 


0743 




0039 


FAST 


EQU 


0744 




7FBF 


ERRTN 


EQU 


0745 




0035 


CKRTN 


EQU 


0746 




0068 


FERR 


EQU 


071*7 




0068 


FNORM 


EQU 


0748 




0055 


CKNORM 


EQU 


0749 


P01A8 


541C 


ORE065 


RTJ- 


0750 


P01A9 


E808 




LQQ* 


0751 


P01AA 


EA02 




LDQ* 


0752 


P01AB 


1201 




JMP- 


0753 


P01AG 


0107 


P DRT011 


ADC 


0754 


P01AO 


0111 


P 


ADC 


0755 


P01AE 


011F 


P 


ADC 


0756 


P01AF 


0000 


ORT012 


NUM 


0757 


P01B0 


0000 


DRT013 


NUM 


0758 


P01B1 


0000 


DRTOli* 


NUM 



DATEX 10/20/74 



EREOOO 
RPEOOO 



VALUE 

STATUS 3 MASK 

VALUE 

STATUS 4 MASK 

VALUE 

STATUS 2 MASK 

VALUE 

ERROR RETURN 



*** ERROR X4 *** 



NORMAL RTN CHECK REPEAT COND 



******************** 9 .******** 9 ****** 9 ** ********************** *********** 

* 

RECHECK STATUS * 

* 
************************************************************************ 



5 

ERTOOO 

(RECKST) 



EREOOO 
RPEOOO 
(IOCYL) 

SE220 

FASTCORT015-RECK09I 

ERRTNCEREQOO-RECK09) 

CKRTNIEREOO0-CKST09) 

FERRIORT024-CKST091 

FNORMCORT025-CKST10) 

CKNORM(RPE0 00-CKST10» 

(HOG) 

DRT014 

ORT011.Q 

1,0 

FNOO-1 

RDOO-i 

WROO-1 



STATUS 1 MASK 

VALUE 

STATUS 3 HASK 

VALUE 

STATUS 4 MASK 

VALUE 

STATUS 2 MASK 

VALUE 

ERROR RETURN *** ERROR X5 *•* 
NORMAL RTN CHECK REPEAT CONO 

EXIT 

SECTION 2 ERROR ENTRY POINT 



DONT RELEASE CONTROL 
GO TO FUNCTION 

REAO OR 

WRITE 



INTERRUPT SWITCH 

EARLY EXIT 

0=FN 1=RD 2=WR 



**» 1=YES 
*** 1=YES 



00712 
00713 
00714 
00715 
00716 
00717 
00718 
00719 
00720 



00722 
00723 
00 724 
00725 
00726 



00728 
00729 
00730 
00731 
00732 
00733 
00734 
00735 
00736 
00737 
00738 
00739 
00740 
00741 

00742 
00743 
00744 
00745 
00746 
00747 
00748 
OQ749 
00750 
00751 
00752 
00753 
08754 
00755 
00756 
00757 
00758 



0760 



************************************************************************ 



00760 
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OATEt 10/20/7t» 



0761 
0762 
0763 
0764 
0765 
0766 
0767 
0768 
0769 
0770 



END OF I/O CYCLE 



«i* ** ****** ******* **************** ****************** ********************* 
************************************************************************ 

* » 
» SECTION INITIALIZE ♦ 

* OUTPUT CLEAR CONTROLLER-ERROR COOE = SSSOE * 

* ♦ 
*********************************»»**************»»»»♦»*»*«♦*******»»♦»* 



00761 
00762 
00763 
00764 
00765 
00766 
00767 
00768 
00769 
00770 



0772 
0773 

077«f 
0775 
0776 
0777 
0778 
0779 

0730 

0781 
0732 
0783 
078«t 
0785 
0786 
0787 
0788 
0789 
0790 
0791 
0792 
0793 
0794 
0795 
0796 
0797 
0798 
0799 
0800 
0801 
0802 
0803 
0804 

0805 
0806 
0807 



P01B2 
P0133 
P01B4 
P0131 
P01B5 
P01B7 
P01B8 
P0139 
P01BH 
P013B 
P013C 
P01BO 
P01BE 
P01BF 

poica 

POlCt 
P31C2 
P01C3 

poic4 

P01C5 
P01CB 
P01CC 
P01CO 
P01CE 
P01CF 
P01D0 
P0105 
P01Q7 
P01B8 
P01D9 
P01E1 
P01E2 
P01E3 
P01E4 
P01EC 
P01EQ 
P01EE 
P01EF 
P01FO 
P01F1 
P01F2 



0000 

C400 

001E P 

A079 

0102 

OH 28 

1802 

0C22 

4«fOO 

OllB P 

t»«»00 

0129 P 

48CD 

<»839 

0A09 

5857 

OOFO P 

0001 

0001 

0006 

0A09 

58i»C 

0165 P 

DB7F 

0009 

0006 

0A09 

58M 

018O P 

0008 

0A09 

58 36 

0179 P 

0008 

08M» 

6800 

0CC5 

68C1 

68BE 

6800 

FF1A 



OPE085 



ORE087 
ORE088 



NUM 
LOA* 

ANO- 

SAZ 

ENQ 

JMP* 

ENQ 

STO> 

STQ* 

STQ* 

STQ* 

ENA 

RTJ* 

ADC 

NUM 

NUM 

BZS 

ENA 

RTJ* 

ADC 

NUM 

NUM 

BZS 

ENA 

RTJ* 

ABC 

BZS 

ENA 

PTJ* 

ABC 

BZS 

CLP 

STA 

STA* 
STA* 
STA 



BRTOOO 

BIT14 

OREO 87 

40 

ORE088 

34 

P005 

WRG5 

MNTR09 

RI09 

9 

BRF090 

CKST01-1 

0001 

0001 

(6) 

9 

ORE090 

RECK01-1 

$DB7F 

9 

(6) 

9 

DRE090 

MNTR01-1 

(8) 

9 

BRE090 

RIOi-i 

18) 

A 

A54-HEST3 

DRT01«» 
DRT012 
FNO*« 



CHECK FOR 50/60 HZ 

MACHINE 
SKIP FOR 60 CYCLE 
2 REVOLUTIONS 



REAO TIMER 

WRITE TIMER 

MONITOR STATUS 
INTERRUPT TIMER 

CLEAR CKST MASK/VALUES 

MASK 
ST1=PEADY 

CLEAR RECKST MASK/VALUES 

ST1 MASK 
ST1=READY/DATA 



CLEAR MONITOR STATUS 
CALL 



CLEAR RECOGNIZE INTERRUPT 
CALL 



COPY 2 STATUS LEVELS 

SET FN SWITCH 
CLEAR INT SWITCH 
TIMER=0 MILLISEC 



00772 
00773 

00774 

00775 
00776 
00777 
00778 
00779 

00780 

00781 
00782 
00783 
00784 
00785 
00 786 
00787 
00788 
00789 
00790 
00791 
00792 
00793 
00794 
00795 
00796 
00797 
00798 
00799 
00800 
00801 
00802 
00803 
00804 

00805 
00806 
00807 
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^ 



O 



o o o 



o o o 



c 



) O ( 



o 





D^MP8 


0808 


P01F3 


0A01 


0809 


P01F4 


6400 




P01F5 


0115 


0810 


P01F6 


6400 




P01F7 


0123 


0811 


P01F8 


6887 


0812 


P01F9 


6800 




P01FA 


FF10 


0813 


PQ1FD 


80 77 


0814 


P01FC 


6800 




P01FO 


FFOE 


0815 


P01FE 


0842 


0816 


P01FF 


5400 




P0200 


OOEB 


0817 


P0201 


0A03 


0818 


P0202 


5816 


0819 


P0203 


OPFO 


0820 


PQ204 


DR7F 


0821 


P0205 


0009 


082? 


P0206 


F800 




P0207 


OCAB 


0823 


P0208 


0D01 


0824 


P0209 


4800 




P020A 


0CA9 


082*5 


P0203 


OCQO 




P020C 


2004 


0826 


P020D 


6400 




P020E 


011A 


0827 


P020F 


A078 


0828 


P0210 


6400 




P0211 


0128 


0829 


P0212 


1C9F 


0831 






0832 






0833 






0831* 






0835 






0836 







PAGF 



ENA 
STA* 

STA* 
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1 

R002 



WR02 



STA* 
STA 


ORT013 
FN02 


AOO- 
STA 


0IT12 

FN03 


CLR 
RTJf 


Q 
IOCYL 


ENA 

RTJ* 

ADC 

NUM 

NUM 

LOQ 


3 

ORE09!] 

CKSTQ1-1 

SDB7F 

$0009 

A5fWFST2 


IMQ 
STQ 


1 
A54-WEST3 


LOA 


=N$2004 


STAf 


RD04 


ANH- 
STA + 


3IT13 
WR04 


JMP* 


(ORE085) 



SET UP DSA OPERATION 



SET EARLY EXIT 

CLEAR CONTROLLER CODE 

RESPONSE=ERR ON REJ 
CONTINUE ON REPLY 

»** ERROR OX *»* 
**** CLEAR CONTROLLER **** 



SET CHFCK STATUS 
ST1 MASK 

VALUE 
RESTORE STATUS 3 

ADDRESS 



READ DSA DATA 



WRITE DSA 



************************************************************************ 

* * 

» SET I/O CYCLE INTERRUPT SWITCH * 

» FROM TEST INPUT PARAMETER * 

* * 



00808 
00809 

00810 

00811 
00812 

00813 
00814 

00815 
00816 

00817 
00818 
00819 
00820 
00821 
00622 

00823 
00821* 

00825 

00826 

00827 
00828 

00829 



00831 
00832 
00833 
0083% 
00835 
00836 



0838 P0213 0000 

0839 P0214 C4Q0 
P0215 0020 P 

0840 P0216 6898 

0841 P0217 1CF9 



ORE 170 



NUM 
LOAf 



STA* 
JMP* 



DRT002 

ORT012 
(DRE170I 



00838 
00839 

00840 
00841 



0843 
0844 
0845 
0846 



********* ********************** ****************************** *********** 

* * 

* FETCH AND STORE » 

* STORE A0HESS-1=1ST ON LIST. <A)= LENGTH » 



00843 
00844 
00845 
00846 
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DATE* 10/20/7** 



Q8«»7 






* 




08<»3 






************* 


0850 


P0 2U 


0000 


QP.EO^O 


NUM 


0851 


P0219 


ECFE 




LDQ* 


0852 


P021A 


*tOFF 




STO- 


0853 


P0213 


60CA 




STA- 


085** 


P021C 


E8F3 




L00» 


0855 


P0 219 


083«f 




AAQ 


0856 


P021F. 


68 F9 




STA* 


0857 


P021F 
P0220 


COOO 
8001 




LOA 


0858 


P0221 


90CA 




SU9- 


0859 


P0222 


60 C A 




STA- 


0860 


PQ223 


otso 




SHO 


0861 


P022'» 


C201 


OPE 093 


LOA- 


0862 


P0225 


6101 




STA- 


0863 


P0226 


nocA 




RA9- 


086*t 


P0227 


01A3 




SOV 


0865 


P0228 


onoi 




INQ 


0866 


P0229 


DOFF 




R.AO- 


867 


P022A 


18F9 




JMP* 


0863 


P022J 


1CEC 


OREO 9 5 


JMP* 


0870 






************* 


0871 






* 




0872 






* 




0873 






* 




087^ 






* 




0875 






************* 


0877 


P022O 


0000 


DRF1Q0 


MUM 


0878 


P022O 
P022E 


D800 
FE23 




RAO 


0879 


P022F 


60 C A 




STA- 


0880 


P0230 


C811 




LOA* 


881 


P0231 
p 0232 


AOOO 
FFOF 




ANO 


0882 


P0233 


00 C A 




EOR- 


0833 


P023<» 


6800 




STA* 


088<t 


P0235 
P0235 


5*0 
00 73 P 




?TJf 


0885 


P0237 


OAOF 




EN A 


0886 


P0233 
P0239 


5800 
FE2F 




EOP 


0887 


P023A 


6808 




STA* 


0888 


P0?3i3 
P023O 


58 
FFH 




RTJ 


0889 


P0230 
P023E 


C5 00 

FHCA 




LDA 



************************************************************************ 



(n^E090l 

I 

COMUSE 

DRE090 

A 

DRF090 

=NS9001 

COMUSE 

COM USE 



1»Q 

lfT 

COMUSE 

ORE095-*-l 

1 

I 

ORE0Q3 

CORE090) 



STORE-1 OROINAL 

LENGTH 

ADJUST THE 
RETU&N ADOP. 

SET TRANSFER 

LENGTH 



FETCH 
ANO 

STORE 
FINISHED-SKIP 



EXIT 



*** vv ************************ v * ********************************** ******* 

* 
DATA ERROR ROUTINE * 

A= NO. OF STOPS TN SSSEE ^ORM * 

* 
************************************************************************ 



ORT027 

COMUSE 
ORT023 

= N'$FFQF 

COMUSE 
ORT023 

0PE125 

*F 
ORT0P7 

ORT016 
FRF020 

BIAS 



INCREMENT TEST ERR COUNT 

SET NO. OF 
A/Q PAIRS 



INSERT ERROR POINTER (01 

SET ERROR 
NO. 



*** ERROR XF »♦» 



BFLL CHECK 



00 8*7 
008*8 



00850 
00851 
00852 
00853 
0085* 
00855 
00856 
00857 

00858 
00859 
00860 
00861 
00862 
00863 
0086* 
00865 
00866 
00867 
00868 



00870 
00871 
00872 
00873 
0087* 
00875 



00 877 
00878 

00879 
00880 
00881 

00882 
00883 
0088<f 

00885 
00886 

00887 
00888 

00889 
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0RMP80 




PAGE 


21 




DATEt 


10/20/74 . 






0890 


P023F 


5402 




RTJ- 


(STOP* 










00890 


0891 


P0240 


1809 




JHP* 


DRE105 










00891 


0892 


P0241 


8038 


HRT023 


NUM 


$8038 










00892 


0893 


P024? 


0000 


DRT016 


NUM 


* 






SSE€ 




00893 


0894 


P0243 


0000 


DRT017 


NUM 


* 






ACTUAL DATA 




0089*1 


0895 


P0244 


0000 


ORT018 


NUM 


* 






EXPECTEO 




00895 


0896 


P0245 


0000 


DRT019 


NUM 


* 






AOOR OF BUFFER 




00896 


0897 


P0246 


0000 


ORT020 


NUM 


* 






AOOR OF ERROR 




00897 


0898 


P0247 


0000 


OPT 021 


NUM 


* 






LENGTH OF BUFFER 




00898 


0899 


P0243 


0000 


ORT022 


NUM 


* 






READ TRACK/SECTOR ADDR 




00899 


0900 


P0249 


OA10 


ORE105 


ENA 


$10 






REPEAT COND CHECK 




00900 


0901 


P024A 


5406 




RTJ- 


<JUMP> 










00901 


0902 


P024B 


1808 




JMP* 


DRE110 






YES 




00902 


0903 


P02«fC 


D8DF 




RAO* 


DRF100 






AOJUST RTN ADDRESS 




00903 


090*» 


P0240 

P024E 


EOOO 
0C12 P 




LOQ 


=XDRE003- 


1 








00904 


0905 


P024F 


C075 




LDA- 


BIT10 






RE-ENTER PARAMETER CHECK 




00905 


0906 


P0250 


5406 




RTJ- 


(JUMP) 










00906 


0907 


P0251 


5201 




RTJ- 


i»Q 






YES GET PARAMETERS 




00907 


0908 


P0252 


1C09 




JMP* 


(DRE100) 






NO EXIT 




00908 


0909 


P0253 


FC08 


0RE110 


LOQ* 


(DREIOO) 






GET REPEAT ADDRESS 




00909 


0910 


P0254 
P0255 


1600 
0000 




JMP+ 


0,0 










00910 


0912 






******* ************************ ************** *************************** 


00912 


0913 






* . . . . 












* - 


00913 


091t» 






* 




PATA COMPARE 






* 


0091*1 


0915 






* 


CALL 


FORMAT A=REPEAT 


CONDITIONS ADDRESS 


* 


00915 


0916 






* 




Q= LENGTH 






* 


00916 


0917 






* 




RTJ 


ORE300 




* 


00917 


0918 






* 




AOC-1 


LAST TRACK ADORESS OUTPUT 


* 


00918 


0919 






* 












* - 


00919 


0920 






************************************************************************ 


00920 


0922 


P0256 


0000 


DRE300 


NUM 


* 










00922 


0923 


P0257 


682C 




STA* 


DRT300 






REPFAT ADDRESS 




00923 


0924 


P0258 


48EE ' 




STO* 


ORT021 






LENGTH TO ERR MSG 




0092* 


0925 


P0259 


C07A 




LOA- 


BIT15 










00925 


0926 


P025A 


0852 




TCQ 


Q 










00926 


0927 


P0253 


083<f 




AAQ 


A 






CONVERT LENGTH TO 800 0-L 




00927 


0928 


P025C 


682F 




STA* 


DRT301 










00928 


0929 


P025D 


0180 




SNO 













00929 


0930 


P025E 


FCF7 




LOQ* 


(ORE30 0> 






GET LAST ISA VALUE 




00930 


0931 


P025F 


C201 




LDA- 


1*0 










00931 


0932 


P0260 
P0261 


AOOO 
FFEO 




ANO 


=N$FFE0 






CALCULATE 




00932 


0933 


P0262 


60 FF 




STA- 


I 






ACTUAL 




00933 


0934 


P0263 


C201 




LOA- 


ltQ 






TRACK/SECTOR 




00934 


0935 


P0264 


0901 




INA 


1 






FOR ERR MSG 




00935 


0936 


P0265 


A827 




AND* 


ORT304 










00936 


0937 


P0266 


80FF 




AOQ- 


I 










00 937 



50412801) 
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ckmpsc 




PAG 


0938 


P0267 


68E0 




STA* 


0939 


P0263 


D8ED 




RAO* 


09*0 


P0269 


08*2 




CLR 


09*1 


P026A 


C600 


ORE32 


LOA- 


09*2 


P026B 


1B0E P 


0RT3')2 


AOC 


09*3 


P026C 


6307 




STA* 


09** 


P026D 


9600 




EOP- 


09*5 


P026E 


0F0F P 


0PT3Q3 


ADC 


09*6 


P026F 


0111 




SAN 


09*7 


P0270 


1816 




JMP* 


09*8 


P0271 


CEFC 


DRE305 


LOA* 


09*9 


P0272 


68D0 




STA* 


0950 


PQ273 


C8FA 




LOA* 


0951 


P027«f 


68D0 




STA* 


0952 


P0275 


08 3* 




AAQ 


0953 


P0276 


68CF 




STA* 


095* 


P0277 


081** 




TRQ 


0955 


P0273 


0Q«f2 




CLR 


0956 


P0279 
O027A 


3000 
0060 




DVT 


0957 


P027S 


01*1 




S07 


0958 


P027G 


0901 




INA 


0959 


P0270 


88CA 


DRE30 8 


AM* 


0960 


P027E 


68C9 




STA* 


0961 


P027F 


0A30 




EN A 


0962 


P0280 
P0281 


EOOO 
OOAO 




LDQ 


0963 


P0282 


58A9 




RTJ* 


096* 


P0283 


0000 


9RT30n 


ADC 


0965 


PQ28* 


030tf 




SET 


0966 


P0285 


1CO0 




JMP* 


0967 


P0285 


0D01 


DRE310 


TNQt 


0968 


P0287 


oao* 




RAO* 


0969 


P0288 


01A1 




SOV 


0970 


P0289 


18E0 




JMP* 


0971 


P028A 


1CCB 


0RE315 


JMP* 


0972 


P023B 


0000 


ORT301 


NUM 


0973 


P028C 


ooif 


ORT30<t 


NUM 


0975 






************* 


0976 






* 




0977 






* 




0978 






* 




0979 






************* 


0981 


P028D 


0000 


ORE150 


NUM 


0982 


P028E 
P028F 


C800 
F092 




LOA 


0983 


P0290 


0822 




TRA 


098* 


P0291 


A8FA 




ANO* 


0985 


P0292 


0112 




SAM 



22 



DATE* 10/20/71* 



DRT0 22 

ORE3 00 



<0>,Q 

WRBUF 

DRT018 

(0) ,n 

ROBUF 

ORF3 05 

DRE310 

(ORT303) ,Q 

ORT017 

ORT303 

ORT019 

A 

DRT020 

A 

Q 

=N96 

ORF308 

1 

ORT022 

ORT022 

*30 

=N$A0 

ORE100 



A 

IORE3O0) 

1 

ORT301 

0RE315 

DRE320 

(DRE300) 

* 

$1F 



ADJUST RETURN 



COMPARE BUFFERS 
ACTUAL TO ERR MSG 



SKIP FOR ERROR 

EXPECTEO TO ERR MSG 
READ BUFFER TO MSG 
ERROR AOOR FOR ERR MSG 

CALCULATE SECTOR 

AOORESS 
FOR 
FRROR MSG 



1PAIRS OF A/Q 



*** ERROR AF *** 



REPORT ERROR 
REPEAT AOORESS 
ERROR SENSOR 
EXIT 

INCREMENT POINTER 
AND COUNTER 



EXIT 

8000-LENGTH 
SECTOR MASK 



************************************************************************ 

* 

FORM ISA-i VALUE IN «QI * 

* 
************************************************************************ 



DRT003 

Q 

ORT30U 

DRE155 



FORM THE ADDRESS 

GET 1ST AVAIL TRACK/SECTOR 



SET UP TO LOAD ISA-1 



00938 
00939 
009<f0 
009*1 
009*2 
009*3 
009** 
009*5 
009*6 
009*7 
00 9*8 
009*9 
00950 
00951 
00952 
00953 
0095* 
00955 
00956 

00957 
00 958 
00959 
00960 
00961 
00962 

00963 
0096* 
00965 
00966 
00967 
00 968 
00969 
00970 
00971 
00972 
00973 



00975 
00976 
00977 
00 978 
00979 



00961 
00962 

00983 
0098* 
00985 



60*12800 



PAGE ?.? 



^ 



( ) 



a 






' ) 



o 



{ ) 
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DRMPftO 



PAC 
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DATE* 10/20/74 



0986 P0293 0O1F 

0987 P0294 1802 

0988 P0295 OOFE 

0989 P0296 1CF6 



INQ 
JMP* 
DRE155 INQ 
n9<Fir,o JMP* 



S1F 

DRE160 
-1 
(DRE150) 



EXIT 



00986 
00987 
00 988 
00989 



0991 






0992 






0993 






0994 






0995 






0996 






0998 


P0297 


0000 


0999 


P0298 


C400 




P0299 


nEEl 


1000 


P029A 


A070 


1001 


P029B 


0111 


1002 


P029C 


1CFA 


1003 


P029O 


E400 




P029E 


01B0 


1004 


P029F 


4400 




P02A0 


0208 


1005 


P02A1 


E400 




P02A2 


0181 


1006 


P02A3 


4336 


1007 


P02A4 


5400 




P02A5 


OBOF 


1008 


P02A6 


0842 


1009 


P02A7 


440 




P02A8 


00F1 


1010 


P02A9 


4400 




P02AA 


0166 


1011 


P02AB 


0C01 


1012 


P02AC 


4400 




P02AD 


010B 


1013 


P02AE 


F077 


1014 


P02AF 


4400 




P0230 


010C 


1015 


P02B1 


C400 




P0232 


0069 


1016 


P02B3 


A07E 


1017 


P02B4 


0822 


1018 


P02B5 


4822 


1019 


P02B6 


5400 




P02B7 


OOEB 


1020 


P02B8 


C400 




P02B9 


0EE1 


1021 


P023A 


A06C 


1022 


P02BB 


0105 


1023 


P023C 


5417 


1024 


P02BD 


0014 



************** *********************************************** »****«**** 

* CLEAR CONTROLLER AFTER ERROR. ENABLE 

* INTERRUPTS IF SELECTED. 

»***»* ************************* ffH»ff»f»f»MHfMI*l*lllll ******** 



BRE400 



0RE4Q 1 



NUM 
LOA+ 


* 
A5*ST1 


A NO- 
SAN 
JMP* 
I.DQ* 


BIT05 
ORE405 
(DRE40Q) 
ORT013 


STQ+ 


DRT401 


LOQ* 


DRT014 


STO» 
RTJ+ 


DRT402 
SE840 


CLR 
STQ+ 


Q 
CKST01 


STQ* 


RECK01 


ENQ 
STQ> 


1 

FN02 


AOQ- 
STQ> 


BIT12 
FN0 3 


LDA* 


DRT007 


ANO- 
TRA 
STQ* 
RTJ* 


HOOFO 
Q 

ORT400 
IOCYL 


LDA+ 


A5*ST1 


AND- 
S47 
RTJ- 
NUM 


BIT01 

DRF407 

(FTXOLY) 

20 



DID ALARM CAUSE ERROR 

SKIP FOR ALARM STATUS 

NO-EXIT 

SAVE EXIT SWITCHES 

AND FN-RO-WR 

SET FN/EARLY EXIT 
IGNORE ST1 

SET CLEAR COMMAND 

USE SAME ERROR NO. 



•»•• CLEAR CONTROLLER ♦*»♦ 

WAS IT A TIMING TRACK 

ERROR 

NO-SKI** 

YES-WAIT FOR CLEAR 

TIMING FRROR INT 



00991 
00992 
00993 
0099% 
00995 
00996 



00998 
00999 

01000 
01001 
01002 
01003 

0100% 

01005 

01006 
01007 

01008 
01009 

01010 

01011 
01012 

01013 
0101% 

01015 

01016 
01017 
01018 
01019 

01020 

01021 
01022 
01023 
0102% 
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CHMP8D 



PAGE 2i* 



DATE* 10/20/7** 



1025 
1026 

1027 

1028 
1029 
1030 

1011 
1032 

1033 

1034 

1035 

1036 
1037 

1038 
1039 

101*0 
1041 
1042 
1043 



P028E 
P02BP 
P02C0 
P02C1 
P02C2 
P02C3 
P02C* 
P02C5 
P02C6 
P02C7 
P02C3 
P02C9 
P02CA 
P02CB 
P02CC 
P02CO 
P02CE 
P02CF 
P02O0 
P0201 
P0202 
P02D3 
P02D<* 
P02D5 
P02D6 
P02D7 
P0208 
P02D9 



E819 
5t*00 
ODER 
C«*00 
0020 
0106 
0A08 

6**nn 

010B 
E810 
5'* 00 
OOEB 
COOO 
0B7F 
6400 
00F1 
6<*00 
0166 
E808 
t*400 
01B0 
E806 
1*«*00 
01B1 
1CC0 
0000 
OQOO 
0000 



DRE*»07 



ORE410 



ORT400 
DRT401 
ORT«*02 



LOQ* 
RTJ* 

LOA* 

SAZ 

en a 

STA* 

loq» 

RTJf 

LOA 

STA* 

STA* 

LOQ* 
STQ* 

LOO* 
STQi- 

JMP* 
NUM 
NUM 
NUM 



DRT400 
IOCYL 

ORT002 

DRE410 

8 

FN02 

ORT«*00 
IOCYL 

=N"SDB7F 

CKST01 

RECK01 

ORT401 
ORT013 

ORT**02 
BRT01«* 

(DRE400) 



*»»* CLEAR TIDING ERR CLR »••« 

CHECK FOR INT OPERATION 

NO-SKIP 
ENABLE EOP INT 



USE SAHE ERROR NO. 
»**» SELECT INT »»»* 

RESTORE CHECK STATUS MASK 



RESTORE EXIT 
ANO FN-RD-WR 



EXIT 

ERROR NUMBER 
EXIT SH 
FN-RB-WR SWITCH 



01025 
01026 

01027 

01028 
01029 
01030 

01031 
01032 

01033 

01034 

01035 

01036 
01037 

01038 
01039 

01040 
01041 
01042 
0101*3 



1045 
10<*6 
1047 
10**8 
10«*9 
1050 



* » 

* SECTION » 

* OUTPUT MESSAGE FOR CONTROLLER CLOCK ADJUSTMENT » 

* » 
*************************** #»#»»***♦♦»»*»♦»«»*»♦»»**»»»»»♦*»» ♦*»***»**»* 



01045 
01046 
0101*7 
01049 
010*9 
01050 



1052- 

1053 
105<* 
1055 
1056 

1057 
1058 
1059 
1060 
1061 
1062 
1063 
1064 



P020A COOO 
P02BB OFOE 
P02DC 5«*0A 
P020B «*868 
P02OE 6868 
P02OF COOO 
P02E0 1B0E 
P02EI 5<*0A 
P02E2 4860 
P02E3 6860 
P02E<* C0**9 
P02E5 A06B 
P02E6 010<* 
P02E7 0O01 
P02E8 MtOO 
P02E9 0005 



SECTO 



LOA 


=XRDBUF 


RTJ- 


tHEXASCJ 


STQ* 


SET010 


STA* 


SET011 


LOA 


=XWRBUF 


RTJ- 


(HEXASC) 


STQ* 


SET015 


STA* 


SET016 


LOA- 


INFORM 


AND- 


BITOO 


SAZ 


SEE000-*-l 


INQ 


1 


STQ+ 


MONRTN 



OUTPUT BUFFER 
ADDRESSES 



CHECK THE BUSY 

SWITCH 
NO-SKIP 
YES-Q=SECTION ADDR-1 



01052 

01053 
01054 
01055 
01056 

01057 
01058 
01059 
01060 
01061 
01062 
01063 
01064 
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O G C 



^ 



^ 



/~~\ 

O 



ORMP8 


PAGE 


25 DATE* 10/20/74 


1065 P02EA 5401 


RTJ- 


(CONTROL) 


1066 P02EB 0C61 SEEOOfl 


ENQ 


SET005-SET000H 


1067 P02EC COOO 


LO A 


=XSET000 


P02EO 02F1 P 






1068 P02EE 5408 


RT J- 


(TYPEOUT) 


1069 P02EF 5800 


RTJ 


DRE050 EXIT SECTION 


P02F0 FD73 






1070 PQ2F1 OOOA SETOOO 


NUM 


JODO A 


1071 P02F2 434F 


ALF 


18, CONTROLLER CLOCK ADJ »=TEST POINT 


P02F3 4F54 






P02F4 524F 






P02F5 4C4C 






P02F6 4552 






P02F7 2043 






P02FB 4C4F 






P02F9 434B 






P02FA 2041 






P02FB 444A 






P02FC 2020 






P02FD 2020 






P02FE 2 A 30 






P02FF 5i*i*S 






P0300 5354 






P0301 2050 






P0302 4F49 






P0303 4E54 






1072 P0304 OOOA 


NUH 


50D0A 


1073 P0305 2020 


ALF 


13, 1. SYNC ( + 1 CARD A26»l 


P0306 312E 






P0307 2020 






P0308 5359 






P0309 4E43 






P030A 2028 






P030B 2929 






P030C 2043 






P030D 4152 






P030E 4420 






P030F 4132 






-- P0310 362A 






P0311 3120 






1074 P0312 OOOA 


NUM 


tODOA 


1075 P0313 2020 


ALF 


23, 2. ADJUST ZERO GOING CLOCK A26»4 • 


P0314 322E 






P0315 2020 






P0316 4144 






P0317 4A55 






P0318 5354 






P0319 205A 






P031A 4552 






P0319 4F20 






P031C 474F 






P031O 49VE 






P031E 4720 






P031F 434C 






60412800 Q 







01065 
01066 
01067 

01066 
01069 

01070 
01071 



01072 
01073 



01074 
01075 
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OATEl 10/20/74 



P032Q 4F43 








P0321 4B20 








P0322 4132 








P03Z3 362A 








P032<» 3420 








P0325 2FI2F 








P0326 2029 








P0327 354E 








P0328 5345 








P0329 4320 








1076 P032A OOOA 




MUM 


?0D0A 


1077 P0328 2020 




ALF 


18, 3. ALL ME 


P032C 332E 








P032D 2020 








P032E 414C 








P032F 4C20 








P0 33Q 4045 








P0 331 4153 








P0 332 5552 








P0333 4540 








P0334 454E 








P0 335 5453 








P0336 2052 








P0337 4546 








P0338 2E20 








P0339 4154 








P033A 2H2B 








P033B 312E 








P033C 3556 








1078 P0330 OOOA 




NUM 


$0O0A 


1079 P033E 2052 




AL^ 


7, RFAO BUFFER= 


P0 33F 4541 








P0340 4420 








P0 341 4255 








P0342 4646 








P0343 4 552 








P034«» 3O20 








1080 P0345 0000 


SFT010 


NUM 


* 


1031 P0346 0000 


SET011 


NUM 


* 


1082 P0347 0O0A 




NUM 


soooa 


1083 P0348 2057 




ALF 


7, WRITE BUFFER 


P0349 5249 








P034A 5445 








P034B 2042 








P03UC 5546 








P0340 4645 








P03UE 5230 








1084 P034F 0000 


SET015 


NUM 


* 


1085 P0350 0000 


SET316 


NUM 


* 


1086 P0351 ODOA 


SET005 


NUM 


$0D0A 



ALL MEASUREMENTS REF, AT *i*5V 



01076 
01077 



01078 
01079 



ASCII MESSAGE 



01080 
01081 
01082 
01083 



01084 
01085 
01086 
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DATEt 10/20/74 



icas 






1089 






1090 






1091 






1092 






1093 






109U 






1095 






1097 


P0352 


0A01 


1098 


P0353 


6800 




P0 35'» 


FE5C 


1099 


H0355 


6800 




P0356 


FE59 


1100 


P0357 


r;oao 




P0 351 


OPOE 


1101 


P0359 


6800 




P035A 


FEE A 


1102 


P0 3 53 


0AQ9 


1103 


P0 35C 


6800 




P035H 


F094 


1104 


P035E 


0A07 


1105 


P035F 


580" 




P0360 


FE37 


1106 


P0361 


0114 


1107 


»0 362 


0000 


1108 


P0 363 


04B0 


1109 


P0 364 


OFOE 


1110 


P0365 


0002 


1111 


P0367 


2002 


1112 


P0 363 


0C10 


1113 


P0 369 


540n 




P036A 


00E3 


1114 


P0363 


C056 


1115 


P036C 


0F42 


1116 


P036O 


0C03 


1117 


P036E 


0832 


1118 


P0 36F 


CA56 


1119 


P0370 


6851 


1120 


P0 371 


oniE 


1121 


f>0 3 72 


4800 




P0373 


FE03 


1122 


P0374 


EOOO 




P0 375 


0F2C 


1123 


P0 37G 


4800 




P0377 


FECE 


112«» 


P0378 


EOOO 


1125 


P03 79 


OFOO 


1126 


P037A 


40FF 


1127 


P037B 


on IE 


1128 


P037C 


C301 


1129 


P037T 


0119 



* **** **************** v**»«y****M**»*«»*****»M»»»V*»**M4'***VI' ********* 

* * 

* SECTION 1 ♦ 

* VERITY CONTINUOUS INCREMENTING OF THE SECTOR » 

* ADDRESS REGISTER "Y READING THE SECTOR ADDRESS * 

* AS DATA AND VERIFY * 

* * 
************************************************************************ 



SECT! 



ST003 



SE04D 



SE0 05 



P STC06 



3^05^ 



ENA 
STA 


1 

DST014 


STA 


DRT013 


LDA 


=XRDQUF 


STA 


DRT019 


ENA 
STA 


9 
CKST02 


ENA 
RTJ 


7 
ORE090 


ADC 
NUH 
NUM 
AOC 
BZS 
NUM 
ENQ 
PTJf 


PD02-1 



1200 

R9RUF 

(2) 

$2002 

$10 

IOCYL 


LOA- 

AP.S 

ENQ 

LAQ 

LDA» 

STA* 

ENQ 

STQ 


SMMCNT 

2 

3 

Q 

ST005,Q 

STOOD 

30 

ORT0 21 


LDQ 


=XRDBUF+30 


STQ 


DRT020 


LHQ- 

ADC 

STQ- 

END 

LOA- 

SAN 




RDPUF-1 

I 

3 

l.H 

SEH45-*-! 



SET THE READ SWITCH 
AND EARLY EXIT 

BUFFER FWA FOR ERR MSG 
VALUE 



SET READ 

A/0 TRANSFER 

LENGTH 

FHA 



PTC3 



RR/DD-READ SECTOR STATUS 

*** ERROR IX »»» 
»**♦ RFAD 1200 WORDS OF ST2 »**♦ 

WHAT CPU TYPE 



CPU TYPE IN Q 

GET THE RIGHT CONSTANT 



DATA LENGTH 

ERROR ADDRESS 

GET BUFFER ADDRESS 

EXAMINE THE FIRST 30 
LOCATIONS TO SEE 
IF DATA IS ALL ZEROES 

NO-SKIP 



01088 
01089 
01090 
01091 
01092 
01093 
0109«i 
01095 



01097 
01098 

01099 

01100 

01101 

01102 
01103 

01104 
01105 

0110 6 
01107 
01108 
01109 
OHIO 
01111 
01112 
01113 

01114 
01115 
01116 
01117 
01118 
01119 
01120 
01121 

01122 

01123 

01124 
01125 
01126 
01127 
01128 
01129 
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DATEI 10/20/7*1 



1130 P037E 


0OFE 




INQ 


-1 


1131 P037F 


0141 




sqz 


SE050-*-i 


1132 PO380 


18FB 




JMP» 


SE055 


1133 P0381 


4800 


SE051 


STQ 


ORT017 


P0382 


FECO 








113V PQ383 


4800 




STQ 


ORT018 


P0384 


FEBF 








1135 P0385 


OC20 




ENQ 


$20 


1136 P0386 


1835 




JMP* 


SE060 


1137 P0387 


E8F1 


SE045 


LOQ* 


ST006 


1138 P0383 


C201 




LOA- 


ltQ 


1139 P0389 


6839 




STA* 


ST001 


1140 P038A 


onoi 


SEOlfl 


INQ 


1 


1141 P0383 


C201 




LDA- 


ltQ 


1142 P038G 


B836 




EOR* 


ST001 


1143 P038O 


0111 




SAN 


SE015-*-i 


1144 P038E 


18FB 




JMP* 


SE010 


1145 P038F 


0844 


SE015 


CLP. 


A 


1146 P0390 


6833 




STA* 


ST002 


1147 P0391 


60 FF 


SE017 


STA- 


I 


1148 P0392 


C830 




LOA* 


ST001 


1149 P0393 


0901 




INA 


1 " 


1150 P0394 


A830 




ANO* 


ST004 


1151 P0395 


6820 




STA* 


ST001 


1152 P0396 


DOFF 


SE020 


RAO- 


I 


1153 P0397 


0001 




INQ 


1 


115«i P0398 


C201 




LOA- 


ltQ 


1155 P0399 


A82B 




AND* 


ST004 


1156 P039A 


B828 




EOR* 


ST001 


1157 P039O 


0111 




SAN 


SE025-*-l 


1158 P039C 


18F9 




JMP* 


SE020 


1159 P039D 


COFF 


SE025 


LOA- 


I 


1160 P039E 


09FE 




INA 


-1 


1161 P039F 


0111 




SAN 


SE027-*-l 


1162 P03A0 


18F5 




JMP* 


SE020 


1163 P03A1 


0901 


SE027 


INA 


1 


116** P03A2 


981F 




SUB* 


STOOO 


1165 P03A3 


0139 




SAM 


SE035-*-l 


1166 P03A4 


081F 




RAO* 


ST002 


1167 P03A5 


C070 




LDA- 


BIT05 


1168 P03A6 


B810 




EOR* 


ST002 


1169 P03A7 


0103 




SAZ 


SE030-*-l 


1170 P03A8 


0844 




CLR 


A 


1171 P03A9 


OOFE 




INQ 


-1 


1172 P03AA 


18E6 




JMP* 


SE017 


1173 P03A8 


5800 


SE030 


RTJ 


ORE050 


P03AC 


FCB7 








1174 P03AD 


C201 


SE035 


LOA- 


l.Q 


1175 P03AE 


6800 




STA 


ORT017 


P03AF 


FE93 








1176 P03B0 


A082 




ANH- 


HFFOO 


1177 P0 3B1 


B811 




EOR* 


ST001 


1178 P03R* 


6800 




STA 


ORT018 


P03B3 


FE90 








601*12800 o 









YES-REPORT ERROR 
ACTUAL 
EXPECTEO-NOT USED 

*** ERROR 2X *•» 

LOOK FOR 1ST GOOO 
FOUND IT-SKIP 



SECTOR COUNTER 

WORD COUNT THIS GROUP 

INCREMENT THE 

EXPECTED SECTOR 

ADDRESS 



COMPARE ALL VALUES 

IN THIS BLOCK 
SECTOR ADDR ONLY 

NISCOMPARE-SKIP 

DID ERROR OCCUR WHILE 
ADDRESS WAS CHANGING 

NO- SKIP 

YES-CONTINUE 

CHECK FOR MINIMUN 
GOOD READS 

SKIP FOR ERROR 

SECTOR COUNT 

COMPLETED 32 
SECTORS 

YES-SKIP 

DO NOT BUMP THE AODRESS 

NO- JUMP 

EXIT 



ACTUAL 

RESTORE FULL 

ADDRESS 
EXPECTED 



01130 
01131 
01132 
01133 

01134 

01135 
01136 
01137 
01138 
01139 
01140 
01141 
01142 
01143 
01144 
01145 
01146 
01147 
01148 
01149 
01150 
01151 
01152 
01153 
01154 
01155 
01156 
01157 
01158 
01159 
01160 
01161 
01162 
01163 
01164 
01165 
01166 
01167 
01168 
01169 
01170 
01171 
01172 
01173 

01174 
01175 

01176 
01177 
01178 
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^A 



n 



r \ 



o 



n 



o 



DRf 


1P80 




PASE 


29 


1179 P03B4 


0001 




INQ 


1 


1180 P03B5 


4800 




STO 


DRT020 


P03B6 


FE8F 








1181 P0387 


C8AB 




LDA* 


ST003 


1182 P03B8 


6800 




STA 


ORT021 


P03B9 


FE8D 








1183 P03BA 


OC30 




ENQ 


$3 


1184 P03B3 


0A30 


SF060 


ENA 


$3 


1185 P03BC 


5800 




RTJ 


ORE100 


P03BO 


FE6E 








1186 P03BE 


0368 P 




ADC 


SE040 


1187 P03BF 


5800 




RTJ 


DRE050 


P03C0 


FCA3 








1188 P03C1 


0000 


STOOD 


NUM 


# 


1189 PQ3C2 


0000 


ST001 


NUH 


- » 


1190 P03C3 


0000 


ST002 


NUM 


* 


1191 P03C4 


001F 


STOP** 


NUM 


S001F 


1192 PQ3C5 


0015 


ST005 


NUM 


21 


1193 P03C5 


OOOE 




NUM 


14 


1194 P03C7 


0016 




NUM 


22 


1195 P03G8 


0022 




NUM 


3*» 



DATE! 10/20/74 







81179 


ERROR ADDRESS 




01180 


DATA LENGTH 




01181 
01182 


*♦» ERROR 


3X *♦ 


01183 
01184 


REPORT THE ERROR 




01185 


REPEAT ADDRESS 




01186 


EXIT 




01187 


WORDS IN BLOCK 




01188 


CURRENT SECTOR STATUS 




01189 


SECTOR COUNTER 




01190 


SECTOR MASK 




01191 


1704/1714 




01192 


1774 




01193 


SYSTEM 17 900 NSEC 


PTC3 


01194 


SYSTEM 17 600 NSEC 


PTC3 


01195 



60412800 
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DATE: 10/20/74 



1197 






1198 






1199 






1200 






1201 






1202 






1203 






1204 






1206 


P03C9 


C056 


1207 


P03CA 


0F^2 


1208 


P03C8 


0C03 


1209 


P03CC 


083? 


1210 


P0 3CD 


CA67 


1211 


P03CE 


686«» 


1212 


P03CF 


E000 


1213 


P0303 


7FFE 


1214 


P03D1 


4862 


1215 


P03D2 


OAOA 


1216 


P03O3 


5800 




P03D4 


FF«f3 


1217 


P03D5 


0165 P 


1218 


P0306 


F87F 


1219 


P03D7 


2009 


1220 


P0303 


00Q6 


1221 


PQ30E 


1C39 


1222 


P03DF 


cooo 




P03E0 


1008 


1223 


P0 3E1 


6800 




P03E2 


F029 


1224 


P03E3 


03M» 


1225 


P03E4 


6800 




P03E5 


OACE 


1226 


P03E6 


68<»A 


1227 


P03E7 


6800 




P03E8 


FD22 


1228 


P03E9 


0C10 


1229 


P03EA 


5800 




P03E9 


FCFF 



*********************************** **************************** 99 ******* 

* * 

* SECTION 2 » 

* LOAD ISA WITH ZEROES AND CHECK STATUS. MODIFY RECHECK » 

* STATUS ERROR RETURN. REPORT COMPARE ERROR AFTER 32 STATUS » 

* CHECKS. VERIFY PROPER ISA LOADING AFTER RECEIVING COMPARE » 

* * 
*************** 9** ********************************************* ********* 



SECT? 



ST203 



SE200 



LDA- 

ARS 

ENQ 

LAD 

LDA* 

STA» 

LDQ- 

NUM 

STQ* 

ENA 

RTJ 

ADC 
NUM 
NUM 
BZS 
VFO 
LOA 

STA 

CLR 
STA 

STA» 
STA 

ENQ 
RTJ 



SMMCNT 

2 

3 

C 

ST205,Q 

ST202 



S7FFE 

ST204 

10 

DRF090 

RECK01-1 

$FB7F 

$2009 

(6) 

N8/$1C»X8/FAST 

=N?1008 

FN03 



A5+WEST3 



ST200 
FN02 

$10 
IOCYL 



DETERMINE NO. OF LEGAL 

ERRORS 

FROM 

STATUS 

CHECK 
ERROR COUNT 

SET 2 PASS ERROR FLAG 
ALLOW FOR STATUS (MONITOR) 

TIMING (40US ST1 TO ST2) 

SET UP RECHECK STATUS 



ST1 MASK 
VALUE 

OVERLAY ERROR RETURN 

RR/DD CODE LOAO ISA REGISTER 



MAKE STATUS ROUTINE COPY 
2 LEVELS ONLY 

SECTOR COUNTER 

INITIAL SECTOR AODR = 

••• ERROR IX »♦» 
»»»» LOAD ISA REGISTER ♦*** 



01197 
01198 
01199 
01200 
01201 
01202 
01203 
01204 



01206 
01207 
01208 
01209 
01210 
01211 
01212 
01213 
01214 
01215 
01216 

01217 
01218 
01219 
01220 
01221 
01222 

01223 

01224 
01225 

01226 
01227 

01228 
01229 



1231 



CHECK STATUS NORHAL RETURN 



01231 



1233 P03EC E8»»6 

123«» P03ED *f844 

1235 P03EE C800 
P03EF 0AF4 

1236 P03F0 A087 

1237 P03F1 BR3F 



SE205 



LOQ* 
STO* 
LDA 

AND- 
EOR» 



ST202 
ST201 
A5+ST2 

H7FFF 
ST200 



REFRESH THE ERROR 

COUNTER 
VERIFY SECTOR AODR 



STATUS 



01233 
01234 
01235 

01236 
01237 
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DATE* 10/20/7* 



1238 


P03F2 


0111 


1239 


P03F3 


180E 


12*0 


P03F* 


083F 


12*1 


P03F5 


01A1 


12*2 


P03F6 


181C 


12*3 


P03F7 


SkiF 


12** 


P03F8 


0AO3 


12*5 


P03F9 


610F 


— *2*6 


P03FA 


583E 


12k7 


P03FB 


5*00 




P03FC 


012E P 


12*8 


P03FO 


5*00 




P03FE 


01*F P 


12*9 


P03FF 


5800 


. 


-pb*oo 


FC63 


1250 


P0*01 


D82F 


1251 


P0*02 


C82E 


1252 


P0*O3 


£070 


1253 


P0*0* 


872 


125* 


P0*05 


01*9 


1255 


P0*O6 


6808 




P0*07 


FD03 


1256 


P0*08 


C8C7 


1257 


PQ*09 


682A 


1258 


P0*0A 


0C10 


1259 


P0*08 


5*00 


■—■- 


P0*0C 


0073 P 


1260 


PO*0D 


1*00 




PO*OE 


0108 P 


1261 


P0*OF 


5829 


1262 


P0*10 


5800 




PO*li 


FC52 


1263 






-1265 


POM 2 


0AO8 


1266 


P0*13 


5800 




P0*1* 


FE03 


1267 


P0*15 


-BW8P 


1268 


P0*16 


F97F 


1269 


P0*17 


2009 


1270 


P0*1* 


0006 


1271 


P0*1E 


1C68 


1272 


P0*1F 


1C68 


1273 


PO*20 


OG20 


127* 


P0*21 


18C8 



SE219 



SE212 



SE213 



SE21* 



SE215 



SE220 



SAN 
JMP» 

PAO» 

sov 

JMP» 
RTJ- 
ENA 
STA- 
RT J* 
RTJ* 

RTJ* 

RTJ 

RAO* 

LOA* 

LOQ- 

EAQ 

SQZ 

ST A 

LDA* 
STA* 
ENQ 
RTJ* 

JMP* 

RTJ* 
RTJ 



SE210-»-i 

SE213 

ST20* 

SE212-*-l 

SE220 

<FWAEI> 

3 

HNTERR,I 

SE235 

EREOOO 

RPEOOO 

DRE050 

ST200 

ST200 

BIT05 

Q 

SE215-*-l 

FN02 



ST203 
ST20* 
$10 
0RE125 

FNOO 

SE235 
OREO 50 



TRY 1 MORE TIME 
NO — ERROR 

FHA ERROR FILE TO I 
TELL MONITOR THIS IS 

A STATUS ERROR 
RESTORE OVERLAYS 
REPORT SECTOR AOOR ERROR 

CHECK REPEAT CONDITIONS 

EXIT 



RECHECK STATUS ERROR RETURN 



ENA 


11 


RTJ 


ORE090 


ADC 


CKSTOl-1 


NUM 


SF97F 


NUM 


$2009 


BZS 


<6* 


VFD 


N8/$lC f X8/FERR 


VFD 


N8/$1C,X8/FN0RM 


ENQ 


$20 


JMP* 


SE20 



ERROR RTN ENTRY POINT 
SET UP CHECK STATUS 



ST1 MASK 
VALUE 

OVERLAY ERROR RETURN 
NORMAL RETURN 

*♦* ERROR 2X »*» 
GO COPY STATUS 



01238 
01239 
012*0 
012*1 
012*2 
012*3 
012*% 
012*5 
012*6 
012*7 

012*8 

012*9 



INCREMENT ISA REGISTER 


01250 


CHECK FOR LAST 


01251 


SECTOR 


01252 




01253 


YES-SKIP 


0125* 


KEEP GOING 


01255 


REFRESH 2 PASS 


01256 


COUNTER 


01257 


••» ERROR IX *•• 


01258 


RESTORE IX ERROR CODE 


01259 


LOAD NEXT SECTOR AODR 


01260 


RESTORE OVERLAYS 


01261 


EXIT 


01262 



01263 



01265 
01266 

91267 
01268 
01269 
01270 
01271 
01272 
01273 
0127* 



1276 



CHECK STATUS ERROR RETURN 



01276 
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PAG 


1278 P0422 E80F 


SE225 


LOO* 


1279 P0«3 OOFE 




INQ 


-1280 P0424 0143 




SQ7. 


1281 P0425 «»80C 




STQ* 


1282 P0426 1800 




JMP 


PQ427 FCC7 






1283 P0428 0844 


SE230 


CLR 


1284 P0429 6800 




STA 


_■__ -■_■__ P042A TOO A 






1285 PQ«*23 580D 




RTJ* 


1286 P042C 5400 




RTJ* 


- - P042O-012E P- 






1287 P0«»2E 5800 




RTJ 


P042F FC34 






1288 P0430 0000 


ST200 


NUM 


1289 P0431 0000 


ST201 


NUM 


1290 P0432 0000 


ST202 


NUM 


-4.291 P0433 0000 


ST20*» 


NUM - 


1292 P043«» 0060 


ST205 


NUM 


1293 P0435 0040 




NUM 


1294 P0436 0875- - 




NUK- 


1295 P0437 0080 




NUM 


1297 P0438 0000 


SE235 


NUM 


1298 P0439 COOO 




LOA- 


-1299 P043A 5835 - 




-VFO 


1300 P043B 6800 




STA 


P043C FC8C 






—1-301, -P-0430 EOOO 




LDQ- 


1302 P043E 5855 




VFO 


1303 P043F l»400 




STQ* 


. ,. — P04VOOOFA P 






1304 P04M COOO 




LDA- 


1305 P0442 58BF 




VFO 


- .1306 P04*»3 6800 




. STA 


P044«» F029 






1307 P0«>45 1CF2 




JMP* 



32 



DATEt 10/20/74 



ST201 

-1 

SE230-*-l 

ST201 

ORE068 

A 
ERT0O0 

SE235 
ERE0O0 

DRE050 



96 
64 
117 

176 



N3/$58,X8/CKRTN 
CKST09 



N8/$58,X8/CKN0RM 
CKST10 



N8/$58,X8/ERRTN 
RECK09 

<SE235) 



HAS 1 REVOLUTION 

OCCUREO 
YES-SKIP 
NO-KEEPGOING 
SET HOG ANO COPY STATUS 

SET CHECK STATUS ERROR NO. 



RESTORE OVERLAYS 
REPORT THE ERROR 

EXIT 

SECTOR COUNTER 
ERROR COUNTER 
ERROR COUNTER 
$8000-2 



CHECK STATUS 

ERROR 

NORMAL 
RETURN 



RECHECK STATUS 
ERROR RETURN 



EXIT 



01278 
01279 
01280 
01281 
01282 

01283 
01284 

01285 
01286 

81287 

01288 
01289 
01290 
01291 
01292 
01293 
01294 
01295 



01297 
01298 
01299 
01300 

01301 
01302 
01303 

01304 
01305 
01306 

01307 
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DATEt 10/20/74 



1309 
1310 
1311 
1312 
1313 
131* 
1315 
1316 
1317 
1318 
1319 



* » 

* SECTION 3 » 

* CHECK INITIAL AND FINAL CORE ADDRESS REGISTERS WITH » 
» CORE ADORESS COMPARE STATUS. USE FOUR PATTERNS. » 

* 1. 0000,0001, 0003, 0007, 000F FFFF ♦ 

* 2. SLIDING ONES » 

* 3. SLIDING ZEROES * 

* 4. SLIDING RANDOM » 

* » 



01309 
01310 
01311 
01312 
01313 
0131* 
01315 
01316 
01317 
01318 
01319 



1321 
- 1322 
1323 
1324 
1325 
1326 

— 1327 
1328 
1329 
1330 
1331 
1332 

1333 
1334 
1335 
1336 
1337 

1338 
1339 

— i3*& 

1341 
— - 1342 
1343 
1344 
13*5 

1346 
1347 
1348 
1349 
1350 
1351 
1352 
1353 

1354 



P0446 

P04«»7- 

P0443 

P0*f^9 

P044A 

P0448 

P044C 

POUkD 

P04«fE 

P04i»F 

P0450 

P0451 

P0452 

P0453 

P0454 

PQ455 

P0456 

P0457 

P0458 

P0459 

P045A 

P045B 

PA45C 

P045O 

P045E 

P845F 

P0460 

P0461 

P8462 

P0463 

P0464 

P0465 

P0466 

P0467 

P0468 

P0469 

P0*6A 

P0*6B 

P0*6C 

P0*6D 

P0*6E 



0A03 
6851 
E850 
CA«tB 
680B 
6800 
F01C 
C84C 
682fC 
E8<i0 
4848 
0A03 
5800 
FDC4 
010A 
0000 
100C 
0C10 
5*00 
OOEB 
C000 
100E 
6800 
FCAE 
582F 
C8F5 
6806 
0A07 
5800 
F084 
0167 
FFFF 
0000 
0000 
0000 
8000 
0000 
C000 
047* 
6800 
FC7C 



SECT3 
SE305 
SE310 



SE340 



ST302 
ST307 



ST308 



ST303 



ST310 



EN A 

ST A* 

LDQ* 

LDA* 

STA» 

STA 

LDA* 

STA* 

LOQ* 

STQ* 

ENA 

RTJ 

ADC 
NUM 
NUM 
END 
RTJ* 

LDA- 

NUM 

STA 

RTJ* 

LDA* 

STA* 

ENA 

RTJ 

ADC 
NUM 
NUM 
NUM 
NUM 
NUM 
NUM 
LDA 

STA 



3 

ST300 

ST300 

ST301,Q 

ST 302 

RECK04 

ST304 

ST305 

ST309 

ST306 

3 

DRE090 

FN02-1 

S100C 

$10 

IOCYL 



$100E 

FN03 

SE335 
ST302 
ST303 

7 
ORE090 

RECK03-1 
SFFFF 



$8000 

* 

=XSE315 
IOCYL 



PATTERN OROINAL 



GET INITIAL CORE ADDRESS 

PATTERN 
ST3 VALUE 

SET UP TIME TO COMPARE 

INITIALIZE SHIFT 
COUNTER 



SET UP FUNCTION 
INITIAL CORE AODRESS 
RR/OD LOAD ICA 

»*» ERROR IX *** 
»♦»» LOAD ICA REGISTER **** 

LOAO FCA 



SET RECHECK STATUS 
GET VALUE FOR 

ST3 fCORE ADDRESS) 



SET UP RECHECK STATUS 

MASK ST3 

VALUE 

MASK ST* 

VALUE 

MASK ST2 

VALUE 

ADJUST RETURN 



01321 
01322 
01323 
0132* 
01325 
01326 

01327 
01328 
01329 
01330 
01331 
01332 

01333 
0133* 
01335 
01336 
01337 

01338 
01339 
013*0 

013*1 
013*2 
013*3 
013** 
013*5 

013*6 
013*7 
013*8 
013*9 
01350 
01351 
01352 
01353 

0135* 
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OATFt 10/20/7^ 



1355 


P0<*6F 0C20 




FNQ 


$20 


1356 


P0t>70 5«f00 
P0471 0073 P 




RTJ* 


0RE125 


1357 


P0472 1800 
P0«»73 FC94 




JHP 


FNOO 


1358 


PQl»74 D827 


SE315 


RAO* 


ST306 


1359 


P0475 01AO 




SOV 


SE320 


1360 


P0475 C80E 


SF322 


LDA* 


ST 30 2 


1361 


P0477 0FG1 




ALS 


1 


1362 


P0478 EB20 




LOQ* 


ST300 


1363 


P0479 OOFC 




INQ 


-3 


136<t 


P047A 0151 




SQN 


SE325 


1365 


P0478 0901 




INA 


1 


1366 


P0*»7C 6808 


SE325 


STA* 


ST302 


1367 


P0470 6800 
P0t*7E FCEA 




STA 


RECKON 


1368 


PQt*7F 5R0E 




RTJ* 


SE335 


1369 


P0480 6800 
P0481 FCEB 




STA 


RECK08 


1370 


P0482 18CE 




JMP* 


SE3&0 


1371 


P0483 C815 


SE320 


LDA* 


ST300 


1372 


P0484 09FE 




INA 


-1 


1373 


P0«»85 0135 




SAM 


SE330 


1374 


P0«*86 6812 




STA* 


ST300 


1375 


P0«t87 0844 




CLR 


A 


1376 


P0<»88 6800 
P0489 FCE3 




STA 


RECK08 


1377 


P048A 18B0 




JMP* 


SE310 


1378 


P0488 5800 
P0«»8C FBD7 


SF330 


RTJ 


DRE050 


1380 


P0480 0000 


SE335 


NUM 


* ■ 


1381 


P048E C80C 




LDA* 


ST305 


1382 


P0«»8F 0FC1 




ALS 


1 


1383 


P0«i90 680A 




STA* 


ST305 


1381* 


P0«f91 A07A 




AND- 


BIT15 


1385 


P0492 6807 




STA* 


ST310 


1386 


P0493 1CF9 




JMP* 


(SE335J 


1388 


P0494 1C0C 


ST301 


NUM 


S1C0C 


1389 


P0495 FFFE 




NUM 


SFFFE 


1390 


P0496 0001 




NUM 


1 


1391 


P0497 0000 




NUM 





1392 


P0493 0000 


ST300 


NUM 


* 


1393 


P0«»99 5555 


ST30«f 


NUM 


$5555 


1394 


P0«i9A 0000 


ST305 


NUM 


* 


1395 


P0*9B 0000 


ST306 


NUM 


* 


1396 


P049C 7F0F 


ST309 


NUM 


*7FDF 



*** ERROR 2X *** 



OUTPUT FCA=IOA (EXPECT COMPARE! 

LAST OUTPUT THIS PATTERN 
YES-SKIP 

SHIFT AND AOD IF NO. 1 
PATTERN 



NOT NO. 1-SKIP 

NEW PATTERN 
ST3 VALUE 

SET RECHECK STATUS 
ST2 VALUE 



FINISHED 

YES-SKIP 

NO- DECREMENT THE OROINAL 
00 NOT EXPECT 
COMPARE 

GO AGAIN 
EXIT 



DETERMINE IF COMPARE 

IS SET THIS 

TIHE 
1ST PASS=0 



3 
2 

PATTERN 1 
PATTERN ORDINAL 

BIT15=C0MPARE 
PATTERN COUNT 
PATTERN COUNT $8000-32 



01355 
01356 

01357 

01358 
01359 
01360 
01361 
01362 
01363 
0136* 
01365 
01366 
01367 

01368 
01369 

01370 
01371 
01372 
01373 
01374 
01375 
01376 

01377 
01378 



01380 
01381 
01382 
01383 
0138% 
01385 
01386 



01388 
01389 
01390 
01391 
01392 
01393 
01394 
01395 
01396 
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DATES 10/20/7t» 



1398 
1399 
1400 
1*01 
1*02 
-1*03 
1*0* 



* • 

* SECTION * ♦ 

* VERIFY SECTOR OVERRANGE ANO DATA REGISTERS. USE DATA » 

* PATTFRN FROM PARAMETER LIST » 

* • ' » 

****************************************** «.***«******** ***************** 



01398 
01399 
01*00 
01*01 
01*02 
01*03 
01*0* 



1*06 
1*07 

1*08 
1*09 

1*10 
1*11 
1*12 
1*13 

1*1* 
1*15 
1*16 
1*17 
1*18 

1*19 
1*20 
1*21 
1*22 
1*23 
1*2* 
1*25 
1*26 

1*27 
1*28 
1*29 
1*30 
1*31 
1*32 

1*33 
1*3* 
1*35 
1*36 
1*37 
1*38 

1*39 
•1**0 

1**1 



P0*9D 
P0*9E 
P0*9F 
P0*A0 
P0*A1 
^0*A2 
P0*A3 
P0*A* 
P0*A9 
P0*AA 
P0*A3 
P0*AC 
P0*AD 
P0*AE 
P0*AF 
P0*8Q 
P0*B1 
P0*B2 
P0*83 
P0*B* 
P0*B5 
PQ*86 
P0*»B7 
P0*8B 
P0*BC 
PO*BO 
P0*8E 
P0*BF 
P0*C0 
P0*C1 
P0*C6 
P0*C7 
P0*C8 
P0*C9 
P0*CA 
P0*CB 
P0*CC 
P0*D2 
P0*03 
P0*O* 
P0*D5 
P0*06 
P0*07 
P0*D8 



08*<* 
6800 
FOli 
0A06 
5800 
F975 
00F2 
0005 
0AO3 
5800 
F06C 
010A 
1B0E 
100C 
0A09 
5*00 
0218 
0165 
OB7F 
0009 
FFFF 
1B0E 
000* 
OAOfl 
5800 
FD5A 
018D- 
0B7F 
0003 
0005 
OA09 
5*00 
0218 
0179 
DB7F 
0003 
0006 
0C10 
5*00 
00E8 
0A09 
6*00 
00F2 
0802 



sec™ 

SE*00 



STtfOl 



CLR 
STA 

ENA 
RTJ 

ADC 
BZS 
ENA 
RTJ 

Aon 

ADC 
NUM 
ENA 
RTJf 

ADC 
NUM 
NUM 
NUM 
AOC 
BZS 
ENA 
RTJ 

ADC 
NUM 
NUM 
BZS 
ENA 
RTJ*- 

AOC 
NUM 
NUM 
BZS 
ENQ 
RTJ+ 

ENA 
STA+ 

SET 



A 
DRT01* 

6 

ORE090 

CKST03-1 

(51 

3 

DRE090 

FN02-1 

WR8UF 

$100C 

9 

ORE090 

RECKOl-l 
S0B7F 
9 

SFFFF 
WRBUF 
(«♦) 
■8'- •••■-. 
ORE090 

MNTR01-1 

$0B7F 

3 

(5) 

9 
DRE090 

RIO 1-1 

J087F 

$0003 

(6) 

$10 

IOCYL 

9 
CKST02 



SET FN SWITCH 



SET FUNCTION 

INITIAL CORE ADDRESS 



RECHECK STATUS 
ST1 MASK 

VALUE 
ST3 MASK 

VALUE 



MONITOR STATUS 
ST1 MASK 
VALUE 



RECOGNIZE INTERRUPT 
STi MASK 
VALUE 

»»» ERROR IX »•♦ 
LOAD INITIAL CORE ADDRESS 

EXPECT READY-DATA 
STI VALUE 



01*06 
01*07 

01*08 
01*09 

01*10 
01*11 
01*12 
01*13 

01*1* 
01*15 
01t»16 
01*17 
01*18 

01*19 
01*20 
01*21 
01*22 
01*23 
01*2* 
01*25 
01*26 

01*27 
01*28 
01*29 
01*30 
01*31 
01*32 

01*33 
01*3* 
01*35 
01*36 
01*37 
01*38 

01*39 
01**0 

01**1 



r. 
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OATE: iIl/20/7*» 



1442 

1443 
l^tt 

1 M5 

1446 

ii*i*7 
1448 

11*1*9 

1450 
1451 

11*52 
1453 

1454 

1455 
1456 
1457 

1458 

1459 
1460 
1461 

1462 
1463 
1464 
1465 
1466 

1467- 
1468 
1469 

1470 

1471 
1472 
1473 
1474 

1475 
1476 
1477 



P04O9 
P04OA 
P04OH 
P04OC 
P04DD 
P040E 
P040F 
P04E0 
P04E1 
P04E2 
P04E3 
P0«»E4 
P04E5 
P04E6 
P04E7 
P04E3 
P04E9 
P04EA 
P04E9 
P04EC 
P04EO 
P04EE 
P04EF 
P04FQ 
P0 4F1 
P04F2 
P04F3 
P04F4 
P04F5 
P04F6 
P04F7 
P04F8 
P04F9 
P04FA 
P04F3 
P04FC 
P04FO 
P04FE 
P04FF 
P0500 
P0501 
P0502 
P0503 
P0504 
P0505 
P0506 
P0507 
P0508 
P0509 
P050A 
P0508 
P050C 
P050D 



4400 
00F3 
E801 
4«*00 
00F4 
CO 00 
100E 
6800 
FC2A 
E07A 
4400 
016C 
4400 
0160 
0C20 
5400 
0OE3 
E07A 
4400 
0OF7 
4400 
00F8 
COOO 
1008 
6400 
010C 
C400 
001F 
0FC5 
09 IF 
6400 
0109 
£0 87 
0874 
6805 
0C30 
5400 
OOEB 
COOO 
0000 
6400 
0OF8 
E400 
0020 
0151 
1813 
0A10 
6400 
0108 
EOOO 
1001 

4<*oa 

010C 



ST403 



ST403 



SE4H5 



ST406 



STQ+ 


CKST03 


LOQ* 
STQf 


ST401 

CKST04 


LOA 


=N$100E 


STA 


FN03 


LDQ- 
STQ* 


BIT15 
RECK07 


STQ* 


RECK08 


ENQ 
RTJ* 


$20 
IOCYL 


LOQ- 
STQ+ 


BIT15 
CKST07 


STQ+ 


CKST08 


LOA- 

NUM 

STA* 




$1003 

FN03 


LDAk 


ORT0 01 


ALS 
INA 
STA+ 


5 

SlF 

FN02 


ANn- 

EAQ 

STA* 

ENQ 

RTJ+ 


H7FFF 

A 

ST403 

$30 

IOCYL 


LOA- 

NUM 

STA* 




* 

CKST08 


ldq* 


ORT002 


SON 
JMP» 

ENA 
STA* 


SE405 
SE407 
$10 
FN02 


LDQ- 

NUM 

STQ* 




$1001 

FN03 



ST3 MASK 
VALUE 

GET READY TO LOAD FCA 

ST2 MASK 

VALUE 

*»* ERROR 2X **» 
LOAD FINAL CORE ADDRESS 

ST2 MASK 
VALUE 

TO LOAD ISA 



GET HIGHEST TRACK NO. 

CONVERT TO 1ST BAO 
TRACK AOORESS 



EXPECT CORE AODR COMPARE 

••• ERROR 3X »»• 
LOAO INITIAL SECTOR ADDRESS <BAO» 

GET TRACK ADDRESS ♦ COMPARE 

ST2 VALUE 



SKIP FOR TNT REQUEST 

ENABLE ALARM INTERRUPT 
INTERRUPTS 



01442 

01443 
01444 

01445 

01446 

01447 
01448 

01449 

01450 
01451 

01452 
01453 

01454 

01455 
01456 
01457 

01458 

01459 
01460 
01461 

♦»» 01462 
01463 
01464 
01465 
01466 

01467 
01468 
01469 

01470 

01471 
01472 
01473 
01474 

01475 
01476 
01477 
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37 


1478 P050E 0A08 




EN A 


8 


1479 P050F 6400 




STA+ 


ORT205 


P051O 0OE7 


P 






1480 P0511 0C40 




ENQ 


$40 


1481 P0512 5400 




RTJ* 


IOCYL 


P0513 OOEB 


P 






1482 P0514 E835 




LOQ* 


ST409 


1483 P0515 0004 




INQ 


4 


1484 P0516 4400 




STQ* 


ORT203 


P0517 00E5 


a 






1485 P0518 1802 




JHP* 


SE408 


- I486 P0519 E830 


SE407 


LOQ» 


ST409 


1487 P051A 4400 


SE408 


STQ+ 


RECK02 


P051B 0167 


P 






1488 P051C 4400 




STQ+ 


DRT203 


P0510 00E5 


P 






1489 P051E COOO 




LDA 


=N?DB6F 


P051F 0B6F 








1490 P0520 6400 




STA* 


RECK01 


P0521 0166 


P 






1491 P0522 6400 




STA+ 


CKSTOl 


P0523 00F1 


P 






1492 P0524 0842 




CLR 


Q 


1493 P0525 4400 




STQ+ 


HNTR01 


P0526 018E 


P 






1494 


* 






1495 


* 






1496 


* 






1497 P0527 4400 




STQ* 


RECK07 


P0528 016C 


P 






1498 P0529 4400 




STQ+ 


CKST07 


P052A 0OF7 


P 






1499 pfl529- i^oo 




STO+ 


CKST03 


P052C 00F3 


P 






1500 P052D 4400 




STQ* 


RECK03 


PQ52E 0168 


P 






1501 P052F 4400 




STQ+ 


DRT013 


P0530 01B0 


P 






1502 P0531 0A02 




EN A 


2 


1503 P0532 6400 




STAM- 


ORT0i«» 


P0533 01B1 


P 






1504 P0534 0A09 




EN A 


9 


1505 P0535 5400 




RTJ+ 


DRE090 


P0536 0218 


P 






1506 P0537 019A 


P 


ADC 


RECKll-1 


1507 P0538 0008 




BZS 


(8) 


1508 P05<»0 5400 




RTJ* 


DRE170 


P0541 0213 


P 






1509 P0542 0C50 




ENQ 


$50 


1510 P0543 5400 




RTJ* 


IOCYL 


P0544 OOEB 


P 






1511 P0545 C400 




LOA* 


DRT002 


P0546 0020 


P 







DATE! 10/20/74 



ENABLE EOP INT AFTER 
ALARM ACKNOWLEDGE 

•*» ERROR 4X »»* 
ENABLE ALARM INTERRUPT 

GET STATUS FOR INT 
PROCESSOR 



SET UP EXPECTED STATUS 
AFTER WRITE 

INT PROCESSOR 

IGNORE POSSIBLE EOP STATUS 



KILL ST1 MASK 

SHM REQUIRES GOING THROUGH 
MONITOR STATUS AFTER OSA 
READ/ WRITE 

KILL ST2 MASK 



ST3 MASK 
ST3 MASK 
CLEAR EARLY EXIT 

SET WRITE SWITCH 

IGNORE LAST RECHECK STATUS 

SET INT SW IF REQUESTED 

♦»» ERROR 5X •»• 
WRITE (EXPECT ERROR) 

CHECK FOR INTS 



01 47 B 
01479 

01480 
01481 

01482 
01483 
01484 

01485 
01486 
01487 

01488 

01489 

01490 

01491 

01492 
01493 

01494 
01495 
01496 
01497 

01498 

01499 

01500 

01501 

01502 
01503 

01504 
01505 

01506 
01507 
01508 

01509 
01510 

01511 
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PA3F 
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1512 


P0547 


0113 




SAN 


SEMO 


1513 


P05*»8 


COOO 




LDA- 





1514 


P0549 


8021 


ST409 


NUM 


$8021 


1515 


P05<*A 


1802 




JMP* 


SE415 


1516 


P05«»R 


0A09 


SF410 


ENA 


9 


1517 


P05^C 


6806 


SE415 


STA* 


ST410 


1518 


P054D 


0A03 




ENA 


3 


1519 


P05<*F 


540 




RTJ+ 


DRE090 




P054F 


0218 


P 






1520 


P0550 


OOFO 


P 


AOC 


CKST01-1 


1521 


P0551 


D86F 




NUM 


J086F 


1522 


P0552 


0000 


STMO 


NUM 


* 


1523 


P0553 


5400 




RTJt 


SE840 




P0 554 


OBOF 


P 






1524 


P0555 


OA03 




FMA 


3 


1525 


P0556 


5400 




RTJ* 


DRE090 




P0557 


0218 


P 






1526 


P0553 


0165 


P 


AOC 


RECK01-1 


1527 


P0559 


DB7F 




NUM 


*0B7F 


1528 


P055A 


0009 




NUM 


9 


1529 


P0558 


C400 




LOA+ 


nRT002 




P055C 


0020 


P 






1530 


P055O 


0119 




SAN 


SE«fl2 


1531 


P0 55E 


0C01 




EN a 


1 


1532 


P055F 


4400 




STQf 


FN02 




P0560 


010B 


P 






1533 


P0561 


Ft) 77 




ADQ- 


BIT12 


1534 


P0562 


4400 




STQ* 


FN03 




P0563 


010C 


p 






1535 


P0564 


0C60 




ENQ 


$60 


1536 


P0565 


5t»00 




RTJ+ 


IOGYL 




P0566 


OOEB 


P 






1537 


P0567 


0A03 


SE412 


ENA 


3 


1538 


P0568 


5t»00 




RTJ+ 


ORE090 




P0569 


0218 


P 






1539 


P056A 


OOFO 


P 


AOC 


CKST01-1 


1540 


P056B 


007F 




NUM 


*0B7F 


15M 


P056C 


0009 




NUM 


9 


1542 


P056D 


C851 




LOA* 


ST411 


1543 


P056E 


6430 




STA + 


RI01 




P055F 


017A 


p 






1544 


P0570 


0A03 




ENA 


3 


15«»5 


P0571 


5400 




RTJ* 


ORF090 




P0572 


0218 


P 






1546 


P0573 


010A 


P 


ADC 


FN02-1 


1547 


P057«* 


1B0F 


P 


ADC 


WRBUF 


1548 


P0575 


100C 




NUM 


S100C 


1549 


P0576 


0802 




SET 


Q 


1550 


P0577 


4400 




STQf 


RECK03 




P0578 


0168 


P 






1551 


P0579 


E07A 




LDQ- 


BIT15 


1552 


P057A 


4400 




STQ* 


RECK07 




P057B 


016C 


P 







DATE: 10/20/74 



YES - SKIP 

NO— GET CORRECT STATUS 

ERROR STATUS 



SET CHECK STATUS 1 



CHECK STATUS 
ST1 MASK 
VALUE 
SET FN AND EARLY EXIT 



RECHECK STATUS 

SKIP CLEAR CONT. IF INTS ON 
CLEAR CONTROLLER CODE 



RR/BD 



»•» ERROR 6X **» 



CLEAR CONTROLLER 



CHECK STATUS 
RESTORE EOP IN MASK 



ST1 MASK 



FUNCTION 
ICA VALUE 
ICA CODE 

ST3 MASK 

RESTORE CORE AOORESS 
COMPARE 



01512 
01513 
01514 
01515 
01516 
01517 
01518 
01519 

01520 
01521 
01522 
01523 

0152* 
01525 

01526 
01527 
01528 
01529 

01530 
01531 
01532 

01533 
01534 

01535 
01536 

01537 
01538 

01539 
01540 
01541 
01542 
01543 

01544 
01545 

01546 
01547 
01548 
01549 
01550 

01551 
01552 
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1553 P057C 0C70 




ENQ 


$70 


1554 P0570 5400 




RTJ+ 


IOCYL 


- P057E OOEB 


P 






1555 P057F C0O0 




LOA 


=N$1008 


P0580 1008 








1556 P0581 6400 




STA+ 


FN03 


P05B2 010C 


P 






1557 P0583 E400 




LDQ* 


DRT0O1 


P0584 0O1F 


P 






1558 P0585 0FA5 




QLS 


5 


1559 P0586 483F 




STQ* 


ST<»05 


1560 P0587 OOFO 




INQ 


-2 


1561 P0588 4400 




STQ+ 


FN02 


P0589 010B 


P 






1562 P058A F07A 




ADQ- 


SIT15 


1563 P058B 4400 




STQf 


RECK08 


P058C 0160 


P 






1564 P058O E0 7A 




LDQ- 


BIT15 


1565 P058F 4400 




STQ+ 


CKST07 


P058F 00F7 


P 






1566 P0590 0802 




SET 


Q 


1567 P0591 4400 




STQ+ 


CKST03 


P0592 00F3 


P 






1568 P0593 E072 




LOQ- 


BIT07 


1569 P059«t 5400 




RTJ+ 


IOCYL 


P0595 OOEB 


P 






1570 P0596 0A02 




ENA 


2 


1571 P0597 6400 




STA + 


ORT014 


P0598 0131 


P 






1572 P0599 0844 




CIS 


A 


1573 P059A 6400 




STA+ 


DRT013 


P059O 01B0 


P 






1574P059C 0C1O 




ENQ 


$10 


1575 P0590 t»400 




STQ* 


ORT2 03 


P059E 00E5 


P 






1576 P059F E400 




LOQ* 


ORT005 


P05A0 002«» 


P 






1577 P05A1 4400 




ST Of 


WRBUF 


P05A2 1B0E 


P 






1578 P05A3 4820 




STQ» 


ST«f04 


1579 P05A4 C400 




LOA+ 


ORT002 


P05A5 0020 


P 






1580 P05A6 0112 




SAN 


SEU20 


1581 P05A7 0A19 




ENA 


$19 


1582 P05A8 1802 




JMP* 


SE«»25 


1583 P05A9 0A09 


SE420 


ENA 


9 


1584 P05AA 6815 


3E425 


STA» 


ST402 


1585 P05AB C813 




LOA* 


ST411 


1586 P05AC 6^00 




STA+ 


MNTR.01 


P05AO 018E 


P 






1587 P05AE 0A09 




ENA 


9 


1588 P05AF 5400 




RTJ* 


DRE090 


P05B0 0218 


P 







0ATE1 10/20/7** 



*** ERROR 


7X ♦»• 


01553 


RE-LOAD ICA REGISTER 






01554 


SET RR/DO 






01555 


ISA LOAD 






01556 


CALCULATE LAST 






01557 


GOOD TRACK 






01558 
01559 


ADDRESS 






01560 
01561 


EXPECT CORE ADOR COMPARE 




01562 


ST2 VALUE 






01563 


RESTORE CORE ADDRESS 






01564 


COMPARE 






01565 
01566 


ST3 MASK 






01567 


•»» ERROR 


8X •*» 


01568 


LOAD GOOD INITIAL SECTOR 1 


iDOR 


01569 








01570 


SET WRITE SWITCH 






01571 
01572 


CLEAR EARLY EXIT 






01573 
01574 


INT PROCESSOR STATUS 






01575 


GET DATA PATTERN FOR 






01576 


WRITE CALL 






01577 


AND ST4 VALUE 






01578 


ARE INTERRUPTS UP 






01579 


YES-SKIP 






01580 


NO 






01581 
01582 
01583 


NOW HAVE CORRECT ST1 


VALUE 


01584 








01585 


RESTORE ST1 MASK 






01586 

01587 
01588 
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DRMP8 






pasf: 


40 


1589 


P05B1 


0165 


P 




ADC 


RECK01-1 


1590 


P0532 


DR61 






NUH 


SDB61 


1591 


P0583 


0001 






NUM 


1 


1592 


P05B4 


0006 






BZ3 


(6) 


1593 


P05BA 


OA09 






FNA 


9 


159*» 


P05BS 
P053C 


5400 
0218 


P 




RTJ+ 


DRE090 


1595 


P05BO 


019A 


P 




ADC 


RECK11-1 


1596 


P058E 


087F 




ST411 


NUM 


$0B7F 


1597 


P05BF 


0000 




ST402 


HUM 


* 


1598 


P05C0 


FFFF 






NUM 


SFFFF 


1599 


P0 5G1 


1B0F 


P 




ADC 


WRBUF+1 


1600 


P05C2 


FFFF 






NUM 


SFFFF 


1601 


P05C3 


0000 




ST40<* 


NUM 


* 


1602 


P05C4 


FFEO 






NUM 


JFFEO 


1603 


P05C5 


0000 




ST405 


NUM 


* 


1604 


P05C6 
P05C7 


5400 
0213 


P 




RTJ4- 


DRE170 


1605 


P05C8 
P05C9 


EOOO 
0090 






LOQ 


=NS0090 


1606 


P05CA 
P05CB 


5400 
00E8 


P 




RTJ* 


IOCYL 


1607 


P05CG 


C8F2 






LDA* 


ST402 


1608 


P05CO 
P05CE 


6400 
0OF2 


P 




STA+ 


CKST02 


1609 


P05CF 
P05O0 


5400 
0064 


P 




RTJ+ 


DRE050 



date: 10/20/74 



RECHECK STATUS 
ST1 MASK 
ST1 VALUE 



SET 2ND RECHECK STATUS 
ST1 MASK 

VALUE 
ST3 M 

V 
ST«» M 

V 
ST2 M 

V 
SET TNT SH IF REQUESTED 



♦»» ERROR 9X »»» 



WRITE 



GET VALUE FOR REPEAT 
SECTION 

EXIT 



01589 
01590 
01591 
01592 
01593 
01594 

01595 
01596 
01597 
01598 
01599 
01600 
01601 
01602 
01603 
01604 

01605 

01606 

01607 
01608 

01609 
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DATE1 10/20/74 



1611 








1612 








---1613- 


-■—--•■ 






161 4 








1615 








- 1616 




.. - .. 


.. 


1617 








1618 






4 


~ 16*9 




""" 




1621 


P05D1 


0C0E 


.... 


1622 


P0502 


COOO 






P0503 


073E 


P 


- — 1623- P05D4- 


5*»08 




162*i 


P05D5 


5417 




1625 


P05D6 


3A98 




-.-- 1626- P05D7 


C400 






P0508 


00F2 


P 


1627 


P05D9 


A081 




1628 


P05DA 


8075 




1629 


P05OB 


6400 






P050C 


00F2 


P 


- 1630 


P05DD 


0A03 




1631 


P05DE 


5400 






P050F 


0218 


P 


- 1632 


P05E0 


OlOA 


P 


1633 


P05E1 


OFOE 


P 


1634 


P05E2 


100C 




1635-PQ5E3 


9 A 05 




1636 


P05E4 


5400 






P05E5 


0218 


P 


1637 


F»05F6 


0165 


P 


1638 


P05E7 


DF7F 




1639 


P05E8 


0409 




1640 


PA5E9 


FFFF 




1641 


P05EA 


OFOE 


P ' 


1642 


P05E8 


0C10 




1643 


P05EC 


5400 






P05ED 


OOEB 


P 


1644 


P05EE 


0802 




1645 


P05EF 


4400 






P05F0 


0OF3 


P 


1646 


P05F1 


E8F8 




1647 


P05F2 


4400 






P05F3 


00F4 


P 


1648 


P05F4 


0O5F 




1649 


P05F5 


4<f00 






P05F6 


0108 


P 


1650 


P05F7 


EOOO 






P05F8 


100E 




1651 


P05F9 


4400 






P05FA 


010C 


P 



» SECTION 5 

* SET GUARDED ADDRESS SWITCH. READ 1ST SECTOR IN HIGHEST 

* GUARDED TRACK. ATEMPT WRITE AT SAHE ADDRESS EXPECT ERROR. 

* WRITE 1ST SECTOR OF LAST TRACK OK. RESET SWITCH AND 

» WRITE SAME GUARDED ADDRESS OK. USE SAHE DATA. 

* 



SECT5 



ST514 



ENQ 
LOA 

RTJ- 
RTJ- 
NUM 
LDA+ 

AND- 
EOR- 
STA+ 

ENA 
RTJ* 

ADC 
ADC 
NUM 
ENA 
RTJ* 

AOC 
NUM 
NUM 
NUM 
ADC 
ENQ 
RTJ* 

SET 
STQ* 

LOQ* 
STQ+ 

INQ 
STQ+ 

LDQ 

STQt 



ST521-ST520+1 
=XST520 

fTYPEOUT* 
CFIXDLY) 
15000 
CKST02 

HOOFF 
BIT10 
CKST02 

3 

DRE090 

FN02-1 

R08UF 

J100C 

5 

ORE090 

RECK01-1 - 

$DF7F 

$0409 

SFFFF 

RD8UF 

$10 

IOCYL 

Q 
CKST03 

ST514 
CKST04 

95 
FN02 

=NS100E 

FN03 



SET THE SWITCH 

WAIT 15 SECONDS 

INSFRT GUAROED ADDRESS STATUS 

BIT— BIT0 4 WILL BE SET IF 
THIS IS REPEAT SECTION 



FUNCTION 
ICA CODE 



RECHECK STATUS 
ST1 MASK 

VLAUE 
ST3 M 
V 

.*•• ERROR IX »»» 
»••* LOAD ICA REGISTER »»♦» 



ST3 MASK 
VALUE 

FINAL CORE AODR 
FCA CODE 



01611 
01612 
01613 
01614 
01615 
01616 
01617 
01618 
01619 



01621 
01622 

01623 
01624 
01625 
01626 

01627 
01628 
01629 

01630 
01631 

01632 
01633 
01634 
01635 
01636 

01637 
01638 
01639 
01640 
01641 
01642 
01643 

01644 
01645 

01646 
01647 

01648 
01649 

01650 

01651 
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1652 P05F8 EQ7A 


LOQ- 


BIT15 


1653 P05FC 4400 


ST CH- 


RECK07 


P05FO 016C P 






1654 P05FE OC20 


ENG 


• S20 


1655 P05FF 5400 


RTJ+ 


TOGYL 


P0600 00E8 V 






1656 P0601 C07A 


LOA- 


3IT15 


1657 P0602 6400 


STAf 


CKST08 


- P0603 OOFS P 






1658 P0604 E400 


LOQ+ 


ORT004 


P0605 0023 P 






1659 PQ6Q6 QFA5 


GLS 


5 


1660 P0607 0D1F 


INQ 


$1F 


1661 P0608 4400 


STQ* 


FN02 


—■--■■ -P0609 010O P 






1662 P060A 4400 


STQ+ 


RECK08 


P060O 0160 P 






1663 P060C 4400 


STO> 


ST501 


P060O 072F P 






1664 P060E 4826 


STQ* 


ST502 


1665 P060F 4831 


STQ* 


ST503 


1666 P0610 4400 


STQ+ 


ST512 


P0611 073C P 






1667 P0612 C400 


LOAf 


ST511 


P0613 0699 P 






1668 P0614 6400 


STAf 


FN03 


--P0615 010C P 






1669 P0616 0C30 


ENQ 


$30 


1670 P0617 5400 


RTJ* 


IOCYL 


P0618 OOEB P 






1671 P0619 GOOD 


LOA 


=N"SFFEO 


P061A FFEO 






1672 P0613 6400 


STA+ 


GKST07 


P061C 00F7 P 






1673 P061O C400 


LOA+ 


RECK08 


P061E 0160 P 






1674 P061F 6400 


STA* 


CKST08 


P0620 00F8 P 






1675 P0621 0C01 


ENQ 


1 


1676 P0622 4400 


STQ> 


DRT014 


P0623 01B1 P 






1677 P0624 5400 


RTJ+ 


SE500 


P0625 0722 P 






1678 P0626 0844 


CLR 


A 


1679 P0627 6400 


STA* 


ORT013 


P0628 01B0 P 






1680 P0629 0A09 


ENA 


9 


1681 P062A 5400 


RTJ+ 


DRE090 


P0623 0218 P 






1682 P062C 0180 P 


AOO 


MNTR01-1 


1683 P062D DF7F 


NUM 


SDF7F 


1684 P062E 0403 


NUM 


70403 


1685 P062F 0004 


8ZS 


(4) 



DATE* 10/20/74 



ST2 MASK 

DO NOT EXPECT COMPARE 

••» ERROR 2X »»» 

•»•» LOAO FCA REGISTER »•*» 



ST2 MASK 

GET HIGHEST GUARDED TRACK 



GET SECTOR ZERO 
TRACK/SECTOR 

ST2 VALUE 



GET ISA CODE 



»»» ERROR 3X ♦*» 

*+** LOAO ISA REGISTER *♦*♦ 



ST2 MASK 

ST2 VALUE 

SET READ SWITCH 

CLEAR EARLY EXIT 



MONITOR STATUS 
ST1 MASK 
VALUE 



01652 
01653 

01654 
01655 

01656 
01657 

01658 

01659 
01660 
01661 

01662 

01663 

0166% 
01665 
01666 

01667 

01668 

01669 
01670 

01671 

01672 

01673 

01674 

01675 
01676 

01677 

01678 
01679 

01680 
01681 

01682 
01683 
01684 
01685 
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1686 P0633 7FE0 


NUM 


S7FE0 


1687 P063<* 0000 ST502 


NUM 


* 


- 1688 P0635 0A09 


ENA 


9 


1689 P0636 5400 


RTJ+ 


ORE090 


P0637 0218 P 






1690 P0638 019A P 


AOC 


RECKll-1 


1691 P0639 DF7F 


NUM 


SDF7F 


1692 P063A 0419 


NUM 


$0419 


1693P063B FFFF 


NUM 


SFFFF 


1694 P063C 0F6E P 


ADC 


RDBUF+96 


1695 P063O 0002 


BZS 


(21 


1696 P063F FFEO 


NUM 


$FFEO 


1697 P0640 0000 ST503 


NUM 


♦ 


1698 P0641 0C40 


enq. 


$40 


1699 P0642 5«»00 


RTJ+ 


IOCYL 


P0643 OOEB P 






1700 P0644 0C01 


ENQ 


1 


1701 P0645 4400 


STQ> 


ORT013 


P06«»6 01B0 P 






1702 P0647 0844 


CLR 


A 


1703 P06«»3 6400 


STAf 


DRT014 


P0649 0191 P 






1704 P064A C84C 


LOA* 


ST506 


1705 PQ643 6400 


STAf 


CKST02 


P064C 00F2 P 






1706 P064D E84C 


LOQ* 


ST509 


- 1707 P064E 4400 


STQ+ 


CKSTD4 


P06«»F 00F4 P 






1708 P0650 0O9F 


INQ 


-96 


1709 P0651 4400 


STQt 


FN02 


P0652 010B P 






1710 P0653 4400 


STQ> 


ST504 


- P0654 0738 P 


- - 




1711 P0655 C8t»5 


LDA* 


ST510 


1712 P0656 6400 


STA* 


FN03 


P0657 010G P 






1713 P0653 5400 


RTJ+ 


SE505 


P0659 0730 P 






1714 P065A 0C50 


ENQ 


$50 


1715 P065B 5400 


RTJ+ 


IOCYL 


P065C OOEB P 






1716 P065D 0844 


CLR 


A 


1717 P065E 6400 


STAf 


ORT013 


P065F 01B0 P 






1718 P0660 6*00 


STA+ 


RECK13 


P0661 0190 P 






1719 P0662 E835 


LDO» 


ST507 


172Q P0663 4400 


STQ* 


RECK12 


P0664 019C P 






1721 P0665 0A02 


ENA 


2 


1722 P0666 6400 


STA + 


ORT014 


P0667 01B1 P 






1723 P0668 C820 


LOA* 


ST505 



HATE* 10/20/74 



ST2 M 






01686 


V 






01687 
01688 
01689 


2ND RECHECK STATUS 






01690 


ST1 MASK 






01691 


VALUE 






01692 


ST3 M 






01693 


V 






01694 
01695 


ST2 M 






01696 


V 






01697 


*»» 


ERROR 


4X ♦♦» 


01698 


*♦** READ GUARDED SECTOR *»♦» 


01699 








01700 


SET EARLY EXIT 






01701 
01702 


SET FUNCTION SWITCH 






01703 


STi=0419 






0170* 
01705 


ST3=R0BUF+96 






01706 
01707 

01708 
01709 


RECHECK STATUS ST3 


V 




01710 


ISA CODE 






01711 
01712 

01713 


• »» 


ERROR 


5X ••• 


01714 


»•♦• LOAD ICA REGISTER »»»» 


01715 


CLEAR EARLY EXIT 






01716 
01717 


DO NOT CHECK ST3 






01718 


GET ST1 VALUE FOR 






01719 


LAST CHECK 






01720 
01721 


SET WRITE SWITCH 






01722 



STl=0«i09 



01723 
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DRMP80 






PAGE 
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1724 P0669 


6400 






STA + 


CKST02 


P066A 


0CF2 


P 








1725 P0663 


E820 






■LOQ* ' 


ST5n8 


1726 P066C 


«»t»00 






STQi- 


CKST04 


P066D 


00F4 


P 








1727 P066E 


C82E 






LDA* 


ST513 


1728 P066F 


6400 






STA* 


RECK01 


P0670 


0166 


P 








1729 P0671 


640 o' 






STA+ 


RECK11 


P0672 


019B 


P 








1730 P0673 


E824 






LOQ* 


ST507 


1731 . P0674 


4400 






STQ* 


RECK 02 


P0675 


0167 


P 








1732 P0676 


0C60 






. ENQ 


$60 


1733 P0677 


5400 






P.TJl- 


IOCYL 


P0678 


0OEB 


P 








1734 P0679 


0844 






CLR 


A 


1735 PD67A 


6800 






STA 


ORT014 


P067R 


FB35 










1736 P067C 


C820 






LDA* 


ST513 


1737 P067O 


6400 






STA+ 


CKST01 


P067E 


OOF! 


o 








1738 P067F 


C818 






LOA* 


ST507 


1739 P0680 


6400 






STA* 


CKST02 


P0681 


0OF2 


P 








1740 P0682 


OC01 






ENQ 


!•■ 


171*1 P0685 


4400 






STOf 


FN02 


P0684 


010B 


P 








1742 P0685 


4400 






STQf 


DRT013 


P0686 


oino 


P 








1743 P0687 


F077 






Aoa- 


8IT12 


1744 P0688 


4400 






STQ* 


FN03 


PQ689 


010C 


P 








1745 P068A 


C80A 






LOA* 


ST 500 


1746 P068B 


6400 




;.-■ '/ 


STA+ 


RECK01 


P068C 


0166 


P 






1747 P0680 


cans 






LOA* 


ST505 


1748 P068E 


6400 






STA+ 


RECK02 


P068F 


0167 


P 








1749 P0690 


0C7O 






ENQ 


$70 


1750 P0691 


5400 






RTJ* 


IOCYL 


P3692 


OQEB 


P 








1751 P0693 


180A 






JMP* 


SE510 


1752 P0694 


DF7F 




ST500 


NUM 


S0F7F 


1753 P0695 


0409 




ST505 


NUH 


$040 9 


1754 P0696 


0419 




ST506 


NUM 


$0419 


1755 P0697 


4421 




ST507 


NUH 


$4421 


1756 P0698 


OFOE 


p 


3T508 


ADC 


ROBUF 


1757 P0699 


0F6E 


P 


ST509 


AOC 


ROBUF+96 


1758 P069A 


100C 




ST510 


NUM 


S100C 


1759 P069B 


1008 




ST511 


NUM 


$100* 


1760 P069G 


0F6F 




ST513 


NUM 


SDF6F 


1761 P0690 


C8F6 




SE510 


LDH* 


ST«5O0 



OATEJ 10/20/74 



01724 



ST3=R0BUF 


01725 




01726 


OROP EOP STATUS FROM . 


01727 


MASK 


01728 




01729 




01730 


ST1=4421 CERRORI 


01731 


»»» ERROR 6X •»• 


01732 


***♦ WRITE GUARDED TRACK **** 


01733 




01734 


SET FUNCTION SWITCH 


01735 


DROP EOP STATUS FROM 


01736 


MASK 


01737 


ST1=4421 CERRORI 


01738 




01739 




01740 


CLEAR CONTROLLER CODE 


01741 


SET EARLY EXIT 


01742 




01743 


RR/DO 


01744 


RESTORE EOP IN MASK 


01745 




01746 


ST2=040 9 


01747 




01748 


*»» ERROR 7X *** 


01749 


**** CLEAR CONTROLLER **** 


01750 


JUMP AROUND CONSTANT TABLE 


01751 


ST1 MASK 


01752 


ST1 V 


01753 


ST1 V 


01754 


ST1 V 


01755 




01756 




01757 


INITIAL CORE CODE 


01758 


INITIAL SECTOR ADDRESS COOE 


01759 




01760 


RESTORE EOP IN MASK 


01761 
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1762 P069E 6400 
P069F 00F1 

1763 P06AO C8F4 

1764 P06A1 6400 
P06A2 0BF2 

1765 PQ6A3 C400 
P06A4 OOIF 

1766 P06A5 OFC5 

1767 PQ6A6 09FE 

1768 P06A7 6400 
P06A3 0108 

1769 P06A9 6400 
P06AA 0195 

1770 P06AB 6400 
- P06AC- 01A2 

1771 P06AO 6400 
P06AE 0160 

1772 P06AF E8EB 

1773 P06B0 4400 
P06B1 010C 

1774 P06B2 E072 

1775 P06B3 5400 
P06B4 00E8 

•177-6- PG685 OA02 
1777 P06B6 6800 

P06B7 FAF9 

-1778--P06B8-0842- 

1779 P0639 4400 

P06BA 0180 
1780-PO6B3-5867 
1781 P06BC E400 

P06BO 010B 
-1782--P06BE 4400 

P06BF 0160 

1783 P06C0 4400 
P06C1 0195 

1784 P06C2 4400 
P06C3 00F8 

1785 P06C4 CBD1 

1786 P06C5 6400 
P06C6 019C 

1787 P06C7 0802 

1788 P06C8 4400 
P06C9 0190 

1789-P06CA EOOO 
P06CB 0090 

1790 P06CC 5400 
—P06CO OOEB 

1791 P06CE 0842 

1792 P06CF 4800 
-■■• -P06D0 FAEO 

1793 P06D1 0O01 

1794 P0602 4800 
- P06O3 FAOG 



PAGE 


45 


STA+ 


CKST01 


LOA* 
STA+ 


ST505 
CKST02 


LOA+ 


ORTO01 


ALS 
INA 
STA* 


5 

-1 

FN02 


STA+ 


MNTR08 


STA+ 


RECK18 


STAt 


RECK08 


LDQ* 
STQ+ 


sr5ii 

FN03 


LD GI- 
RT J* 


BIT07 
IOCYL 


ENA 
STA 


2 
ORT014 


CLR 
STQf 


Q 
ORT013 


RTJ» 
LDQ* 


SE500 
FN02 


STQ> 


RECK 08 


STQ* 


MNTR08 


STQ* 


CKST08 


LDA* 
STAf 


ST506 

RECK12 


SET 
STQ+ 


Q 
RECK13 


LOQ 


=N$90 


RTJ+ 


IOCYL 


CLR 

STO 


Q 
DRT014 


INQ 
STQ 


1 
ORT013 



OATEI 10/20/74 



STi=0WJ9 



1ST SECTOR LAST TRACK 
ST2 VALUE 
ST2 V 
ST2 V 

ISA CODE 

»»» ERROR 8X »»» 
•••• LOAD ISA REGISTER •»•» 

SET WRITE SWITCH 

CLEAR EARLY EXIT 
SET RECHECK STATUS 

ST2=TRACK AOORESS 

ST2 V 

GET ST1 VALUE FOR 
LAST CHECK 

ENABLE ST3 
CHECK 

»•» ERROR 9X •»•' 

»»♦» WRITE LAST TRACK **»» 

SET FUNCTION SW 

SET EARLY EXIT 



01762 

01763 
01764 

01765 

01766 
01767 
01768 

01769 

01770 

01771 

01772 
01773 

01774 
01775 

01776 
01777 

01778 
01779 

01780 
01781 

01782 

01783 

01784 

01785 
01786 

01787 
01788 

01789 

01790 

01791 
01792 

01793 
01794 
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1795 


DRt' 
P06D4 


1P8Q 
C8C1 


1796 


P0605 


6400 




P0606 


00 F2 


1797 


P06O7 


C8C1 


1798 


P06D8 


6400 




P0609 


00 F4 


1799 


P06DA 


E400 




P0608 


0023 


- 1800 


P06DC 


0FA5 


1801 


P06DO 


0D1F 


1802 


P060E 


4400 


. .-_ 


P06DF 


OlOB. 


1803 


P06E0 


4400 




P06E1 


0195 


- 180 if 


P06E2 


4400 




P06E3 


01A2 


1805 


P06E4 


C8B4 


1806 


P06E5 


6853 


1807 


P06E6 


584A 


1808 


P06E7 


EOOO 


__. 


P06E8 


OOAO 


1809 


P06E9 


5400 




P06EA 


OOEB 


... iaio 


P06EB 


E8A9 


1811 


P06EC 


4400 




P06EO 


0OF2 


- 1812 


P06EE- 


C84E 


1813 


P06EF 


6400 




P06F0 


00F8 


1814 


P06F1 


C8A6 


1815 


P06F2 


6400 




P06F3 


OlOB 


1816 


P06F4 


6400 




P06F5 


0169 


1817 


P06F6 


C8A3 


1818 


P06F7 


6400 




P06F8 


010C 


1819 


P06F9 


EOOO 




P06FA 


0080 


1820 


P06FB 


5400 




P06FC 


OOEB 


1821 


-P06FD 


OCOF 


1822 


P06FE 


COOO 




P06FF 


074B 


- 1823 


P0700 


5408 


182*i 


P0701 


5417 


1825 


P0702 


3A98 


1826 


P07Q3 


0A09 


1827 


P0704 


6400 




P0705 


00F2 


1828 


P0706 


E891 


1829 


P0707 


4400 




P0708 


0OF4 



PAGF 


46 ! 


LOA* 
STA* 


ST506 
CKST02 


LDA* 
STA + 


ST509 
CKST04 


LDQ+ 


ORT004 


QLS 
INQ 
STQ* 


5 

$1F 

FN02 


STQ* 


MNTR08 


STQ* 


RECK18 


LOA* 
STA* 
RTJ* 
LOO. 


ST509 
ST504 
SE505 
=NJAO 


RTJ* 


IOCYL 


LOQ* 
STQ* 


ST505 
CKST02 


LOA* 
ST A* 


ST512 
CKST08 


LDA* 
STA+ 


ST508 
FN02 


STA* 


REGK04 


LOA* 
STA+ 


ST510 
FN03 


LOQ 


=N*B0 


RTJ* 


TOCYL 


ENQ 
LOA 


ST522-ST521H 
=XST521 


RTJ- 

RTJ- 

NUM 

ENA 

STA* 


(TYPEOUTJ 
(FIXOLY* 
15000 
9 

CKST02 


LOQ* 
STQ* 


ST508 
CKST04 



OATEJ 10/20/74 



ST1=0419 



ST3-R0BUF+96 

GET 1ST SECTOR 

OF HIGHEST 
GUARDED ADDRESS 

ST2 VALUE 
ST2 V 



ST3 VALUE 

SET RECHECK STATUS 

•»• ERROR AX »»• 

**** LOAD ISA REGISTER **** 



ST1=0409 

GET TRACK/SECTOR FOR 
CHECK STATUS 

AODR FOR ICA 



ST3 VALUE 
RR/DD CODE 

»** ERROR BX **» 
**** LOAD ICA REGISTER *»»» 

CLEAR THE SWITCH 
WAIT 15 SECONDS 
ST1 VALUE 



01795 
01796 

01797 
01798 

01799 

01800 
01801 
01802 

01803 

01804 

01805 
01806 
01807 
01808 

01809 

01810 
01811 

01812 
01813 

01814 
01815 

01816 

01817 
01818 

01819 

01820 

01821 
01822 

01823 
01824 
01825 
01826 
01827 

01828 
01829 



L 
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1830 P0709 0A02 






EN A 


2 


1831 P070A 6800 






STA 


DRT014 


-•- — P0709 FAA5 










1832 P070C 0844 






CLR 


A 


1833 P070D 6800 






STA 


DRT013 


P070E FAA1 










1834 P070F 5813 






RTJ* 


SE500 


1835 P0710 0A01 






ENA 


1 


— 1836-P0711 6400 






STA+ - 


RECK02 


P0712 0167 


P 








1837 P0713 0902 






TNA 


2 


1838 PG714 6400 






STA* 


MNTR02 


P0715 018F 


P 








1839 P0716 0A19 






ENA 


$19 


1840 P0717 6400 






STA+ 


RECK12 


P0718 019C 


P 








1841 P0719 F000 






Loq 


=NSC0 


P071A OOCO 










1842 P0718 5400 






RTJ* 


IOCYL 


P071C 00E8 


P 








.,. 1843 P071O 0C19 






ENQ 


$19 


1844 P071E 4400 






STQ+ 


CKST02 


P071F 00F2 


P 








— 1845 P0720 5400 






RTJ* 


ORE050 


P0721 0064 


P 








1847 P0722 0000 




SE500 


NUM 


V 


1848 P0723 0A09 






ENA 


9 


1849 P0724 5400 






-RTJf 


DRE090 


P0725 0218 


P 








1850 P0726 0165 


P 




ADC 


RECKOi-1 


1851 P0727 OF 65 






NUM 


SDF65 


1852 P0728 0401 






NUM 


$0401 


1853 P0729 0004 






BZS 


(41 


1854 P072D 7FE0 






NUM 


S7FE0 


1855 P072E 0000 




ST501 


NUM 


♦ 


1856 P072F 1CF2 






JMP* 


(SE5001 


1858 P0730 0000 




SF505 


NUM 


* 


1859 P0731 OA09 






ENA 


9 


1860 P0732 5400 






RTJ+ 


DRE090 


PQ733 0218 


P 








1861 P0734 0165 


P 




ADC 


RECKOl-l 


1862 P0735 0F7F 






NUM 


$DF7F 


1863 P0736 0409 






NUM 


$0409 


186V P0737 FFFF 






NUM 


JFFFF 


1865 P0738 0000 




ST50<» 


NUM 


* 


1866 P0739 0002 






BZS 


12) 


--- 1867 P073B FFEO 






NUM 


$FFE0 


1868 P073C 0000 




ST512 


NUM 


* 


1869 P0739 1CF2 






JMP* 


(SE505) 



SET WRITE 

CLEAR EARLY EXIT 
SET RECHECK STATUS 
ST1 VALUE 

ST1 VALUE 

ST1 VALUE 

•»» ERROR CX »»» 

»»»» WRITE NON GUARDED TRACK .•»» 

ST1 VALUE FOR 
REPEAT SECTION 

EXIT 



RECHECK STATUS 
ST1 MASK 
VALUE 

ST2 M 

V 



RECHECK STATUS 
ST1 MASK 

VALUE 
ST 3 M 

V 

ST2 M 
V 



01830 
01831 

01832 
01833 

01834 
01835 
01836 

01837 
01838 

01639 
01840 

01841 

01842 

01843 
01844 

01845 



01847 
01848 
01849 

01850 
01851 
01852 
01853 
01854 
01855 
01856 



01858 
01859 
01860 

01861 
01862 
01863 
01864 
01865 
01866 
01867 
01866 
01869 
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DATE! 10/20/74 



1870 P073E 

1871 P073F 
_. — -- P0740 

P0741 
P0742 
PQ743 
P0744 
P0745 
_ _.. P0746 
PQ747 
P0748 

P0749 

P074A 

1872 P074B 

1873 P074C 
P07«»n 
P074E 

— P074F 
P0750 
PQ751 

-.—-'■ P0752 
P0753 
P0754 

.._-, ....P075S. 

P0756 

P0757 

-■■• P0758 

1874 P0759 



oooa 

2020 
5345 
5420 
4755 
4152 
4445 
4420 
4144 
4452 
4553 
5320 
5357 
OOOA 
2020 
434C 
4541 
5220 
4755 
4152 
4445 
4420 
4144 
4452 
4553 
5320 
5357 
OOOA 



ST520 



NUM J0O0A 

ALF 12, SET GUARDED ADDRESS SH 



01870 
01871 



ST521 



NUM SODOA 

ALF 13, CLEAR GUARDFD ADDRESS SH 



01872 
01873 



ST52? 



NUM 



SODOA 



01874 
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DATEI 10/20/74 


1876 


**************»********************-************»*****»«***************** 


1877 


* 








- - 1678 ~ -...- - 


■•»" ■• - -■ — ■ ■-' 


SECTION 6 






1879 


* WRITE 


EACH SECTOR WITH ITS 


OWN AODRESS BEGINNING WITH » 


1880 


* AODRESS IN PARAMETER 


WORD. 


BEGIN AT SECTOR ZERO OF TRACK ♦ 


-—1*81-— — - 


» 








1882 


************************************************************************* 


1884 P075A 5400 


SECTS RTJ* 


SE690 




GET TRACK LENGTH IN 8000-TRACKS 


PQ75B 0872 P 










1885 P075C 6800 


STA 


ST600 






P075D 0121 










1886 P075E 6400 


STA* 


ST607 






- P075F 0880 P 










1887 P0760 C800 


LDA 


DRT003 




MAKE 1ST SECTOR=ZERO 


P0761 F8C0 










1888-P0762 A000 


-■ AND 


=NS7FE0 






P0763 7FE0 










1889 P0764 091F 


INA 


S1F 






.... -ia^O -P0765 6400 


STA* 


ST609 




FOR READ LOOP 


P0766 0882 P 










1891 P0767 E400 


Lr»Q+ 


ORT002 






■-.—»■- PQ768 0020 P 










1892 P0769 6400 


STAf 


ST601 






P076A 087F P 










-1893 -P076B 014A 


SQZ 


SE603 




SKIP FOR NO INT REQUEST 


189* P076C 0A04 


EN A 


4 






1895 P076D 5400 


RTJ* 


ORE090 






-— - "P07-6E-O218-P- 


- - - 








1896 P076F 010A P 


AOC 


FN02-1 




FUNCTION 


1897 P0770 0008 


NUM 


8 




EOP CODE 


- -1898-P0771 1001 


NUM 


$1001 






1899 P0772 0000 


NUM 









1900 P0773 OHIO 


ENQ 


$10 




*»» ERROR IX ••• 


1901 P0774 5400 


RTJ+ 


IOCYL 




»»** ENABLE EOP INTERRUPT »•♦♦ 


P0775 OOEB P 










1902 P0776 0A03 


SE603 EN A 


3 






1903- P0777 5400 


RTJ+ 


DRE090 






P0778 0218 P 










1904 P0779 010A P 


ADC 


FN02-1 




FUNCTION 


-- 1905 P077A 270D P 


AOC 


WR8UF+3071 




FCA VALUE 


1906 P077B 100E 


NUM 


flOOE 




FCA CODE 


1907 P077C 0C20 


ENQ 


$20 




»*♦ ERROR 2X ••• 


-■• 1908- P077D 5400 


RTJ*- 


IOCYL 




•••» LOAD FCA REGISTER »»•• 


P077E OOEB P 










1909 P077F 0A03 


SE640 ENA 


3 






1910 P0780 5400 


RTJ+ 


DRE090 






P0781 0218 P 










1911 P0782 010A P 


ADC 


FN02-1 




FUNCTION 


1912 PO 783 180E P 


AOC 


WRBUF 




ICA VALUE 


1913 P0734 100C 


NUM 


S100C 




ICA CODE 


1914 P0785 0A09 


ENA 


9 




RESTORE ST1 VALUE 



01876 
01877 
01878 
01879 
01880 
01881 
01882 



01884 

01885 

01886 

01887 

01888 

01889 
01890 

01891 

01892 

01893 
01894 
01895 

01696 
01897 
01898 
01899 
01900 
01901 

01902 
01903 

01904 
01905 
01906 
01907 
01908 

01909 
01910 

01911 
01912 
01913 
01914 
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DATE! 10/20/74 



1915 P0786 6*00 




STA* 


RECK02 


P0787 0167 


P 






■1-9-16 P0784 0C30 




ENQ 


$30 


1917 P0789 5*00 




RTJ+ 


IOCYL 


P078A OOEB 


P 






1918 P0788 0A09 




ENA 


9 


1919 P078C 6*00 




STA* 


CKST02 


P0780 0OF2 


P 






192a P078E csno 


.. , . . 


IDA 


ST601 


P078F OOFO 








1921 P0790 6805 




STA* 


ST602 


1922 P0791 0A03 




ENA 


3 


1923 P0792 5*00 




RTJ+ 


ORE 090 


P0793 0218 


P 






1924 P079* OiOA 


P 


ADC 


FN02-1 


1925 P0795 0000 


ST602 


NUM 


* 


1926 P0796 1008 




NUM 


$100 8 


1927 P0797 0C*0 




enq 


$*0 


1928 P0798 5<»00 




RTJ* 


IOCYL 


P0799 OOEB 


P 






1929 P079A 0A03 




ENA 


3 


1930 P079B 5*00 




RTJ* 


OREO 90 


P079C 0218 


P 






1931 P079Q 0179 


P 


ADC 


RIOi-1 


1932 P079E 0B7F 




NUM 


$0B7F 


1933 P079F 0003 




NUM 


3 


193* PO7A0 0A03 




ENA 


3 


1935 P07A1 5*00 




RTJ«- 


ORE090 


P07A2 0218 


P 






1936 P07A3 0180 


P 


ADC 


MNTR01-1 


1937 P07A* 0B7F 




NUM 


$0B7F 


1938 P07A5 0003 




NUM 


3 


1939 P07A6 0A03 




ENA 


3 


19*0 P07A7 6400 




STA* 


RECK 02 


P07A3 0167 


P 






19*1 P07A9 0A02 




ENA 


2 


19*2 P07AA 6400 




ST A* 


DRT01* 


P07AB 01B1 


P 






19*3 P07AC 08*2 




CLR 





19** P07AQ **00 




STQ+ 


DRT013 


P07AE 01B0 


P 






19*5 P07AF 5800 




RTJ 


SE600 


P07B0 0098 








19*6 P0791 6815 




STA* 


ST605 


19*7- P07B2 5800 




RTJ 


SE620 


P07B3 OOAF 








19*8 P07B* 680C 




STA» 


ST603 


19*9 P07B5 0A1D 




ENA 


$10 


1950 P07B6 6400 




STA* 


DRT203 


P07B7 0OE5 


P 






1951 P0788 E*00 




LOQ> 


WRBUF+3071 


P07B9 2700 


P 






1952 P07BA *80A 




STQ* 


ST60* 



AFTER WRITE 



01915 



»•• ERROR 

»»♦♦ LOAD ICA REGISTER 


3X ♦»» 


01916 
01917 


ST1 VALUE 






01918 
01919 


GET CURRENT TRACK ADOR 






01920 

01921 
01922 
01923 


FUNCTION 

ISA VALUE 

ISA CODE 

*»» ERROR *X »•* 
»»♦♦ LOAO ISA REGISTER •••» 


01924 
01925 
01926 
01927 
01928 








01929 
01930 


RECOGNIZE INTERRUPT 
STi MASK 
VALUE 






01931 
01932 
01933 
01934 
01935 


MONITOR STATUS 
STI MASK 
VALUE 
GET STI VALUE 






01936 
01937 
01938 
01939 
01940 


SET WRITE 
SWITCH 






019(»1 
019*2 


CLEAR EARLY 
EXIT 






01943 
01944 


SET WRITE BUFFER 1 TRACK 




01945 


A=UPDATED TRACK/SECTOR 
GET STI VALUE W/O INT 


ADDRESS 


019*6 
01947 


2ND RECHECK STATUS STI 
FOR THE INT PROCESSOR 


VALUE 


01948 
01949 
01950 


ANO ST* CDATA) VALUE 






01951 
01952 
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DATE! 10/20/7** 



1953 
1954 

1955 
1956 
1957 
1958 
1959 
1960 
1961 
1962 
1963 
196«i 
1965 

1966 
1967 

1968 

1969 
1970 

1971 

1972 



1973 
1971* 
1975 

1976 

1977 

1978 

1979 
1980 
1981 

1982 
1983 
1984 
1985 
1986 

1987 
1988 
1989 
1990 
1991 



P07BB 
P07BC 
P07BO 
P07BE 
P07BF 
P87G0 
P07C1 
P07C2 
P07C3 
PQ7C<» 
P07C5 
P07C6 
P07C7 
P07C8 
P07G9 
P07CA 
P07C3 
P07CC 
P07CO 
P07CE 
HP070F- 
P07D0 
P07D1 
PQ702 
P07D3 
P07D«t 
P0705 
P07D6 
P07O7 
P07O8 
P07O9 
P07DA 
P07D8 
P07DC 
P07OD 
P07DE 
P07OF 
P07E0 
P07E1 
P07E2 
P07E3 
P07E4 
P07E5 
P07E6 
P07E7 
P07E8 
P07E9 
P07EA 
P07E9 
P07EC 
P07ED 
P07EE 
P07EF 



0A09 

54nn 

0P1B 
019A 
0B7F 
0000 
FFFF 
270E 
FFFF 
0000 
FFEO 
0000 
0A01 
6400 
01AF 
0C50 
5400 
OOEB 
5400 
0297 
C8F0 
6400 
0OF2 
5400 
086A 
D800 
0QA9 
01A1 
18A7 
-C40O 
0880 
6800 
00 A3 
C400 
0882 
6800 
00A0 
6826 
OA03 
5400 
0218 
010A 
1B0O 
100E 
0A03 
5400 
0218 
0165 
DB7F 
0009 
0C60 
5400 
OOEB 



ST603 

ST6m» 
ST605 



SE635 



ENA 
RTJ* 

ADC 
NUM 
NUM 
NUH 
ABC 
NUM 
NUM 
NUM 
NUM 
ENA 
STA* 

ENQ 
RTJf 

RTJf 

LBA» 
STAf 

RTJ+ 

RAO 

SOV 

JMP* 

LDA+ 

ST A 

LOAf 

STA 

STA* 

ENA 

RTJf 

ADC 
ADC 
NUM 
ENA 
RTJ* 

ADC 
NUM 
NUM 
ENQ 
RTJ+ 



9 

ORE090 



RECK11-1 
SDB7F 

* 

SFFFF 
WRBUF+30 72 
$FFFF 

* 

IFFEO 

» 

1 
DRT012 

$50 
IOCYL 

ORE400 

ST603 
CKST02 

SE675 

ST600 

SE635 
SE640 
ST607 

ST600 

ST609 

ST601 

ST606 

3 

DRE090 

FN02-1 

RDBUF+3071 

S100E 

3 

DRE090 

RECKOl-i 

$0B7F 

9 

$60 

IOCYL 



RECHECK STATUS «2ND> 
ST1 MASK 

VALUE 
ST3 M 

V 
ST4 M 

V 
ST2 H 

V 

SET INTERRUPT SWITCH 

**» ERROR 5X ♦»» 

»»»* WRITE 1 TRACK •»•• 

ALARM (ERREOR) CHECK 



ST1 VALUE 

SET FN-EARLY EXIT 

LAST TRACK WRITTEN 

YES-SKIP 
CO AGAIN 
REPLACE TRACK COUNT 



AND 1ST SECTOR AODR 



01953 
01954 

01955 
01956 
01957 
01958 
01959 
01960 
01961 
01962 
01963 
01964 
01965 

01966 
01967 

01968 

01969 
01970 

01971 

01972 

01973 
01974 
01975 

01976 

01977 

01978 













01980 
01981 


FUNCTION 

SET UP FCA 
VALUE 

RECHECK STATUS 










01982 
01983 
01984 
01985 
01986 


ST1 MASK 
VALUE 

»»»• LOAD FCA 


♦»» ERROR 6X ••• 
REGISTER »»•• 


01987 
01988 
01989 
01990 
01991 
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DATE* 10/20/74 



1992 P07FQ 


0A09 




ENA 


9 


1993 P07F1 


6<f00 


SE670 


STA* 


CKST02 


:_...' P07F2 


0flF2 


•p.. ../.:.. 






1994 P07F3 


0A09 




ENA 


9 


1995 P07F4 


6400 




STA+ 


RECK02 


:-.— P07F5 


0167 


p.... .. 






1996 P07F6 


0A03 




ENA 


3 


1997 P07F7 


5«*00 




RTJf 


ORE090 


._.;-. . ,:. po7F^ 


0218 


p .:.. 






1998 P07F9 


010A 


p 


AOC " 


FN02-1 


1999 P07FA 


OFOE 


P ST610 


AOC 


RDBUF 


2000 P07FB 


100C 




NUM 


$100C 


2001 P07FC 


OC70 




ENQ 


$70 


2002 P07FD 


5400 




RTJ* 


IOCYL 


..-_—._ P07FE 


00 E8 


P 






2003 P07FF 


0A09 




ENA 


g 


2004 P0800 


6400 




STA* 


CKST02 


—P0801 


0OF2 


P '_... 






2005 P0802 


0A03 




ENA ' 


3 


2006 P0803 


5400 




RTJ+ 


ORE090 


Pa804 


0218- P 


_.. . „. ..:.......'. 


. ••:.-. .. .■ • 


2007 P0805 


010A 


P 


AOC 


FN02-1 


2008 P0806 


0000 


ST606 


NUH 


' * 


2009 P0807 


1008 




. NUH 


$1008 


2010 P0808 


E072 




LDQ- 


BIT07 


2011 P0809 


5400 




RTJf 


IOCYL 


.... P080A 


OOEB 


p .... 






2012 P080B 


5830 




RTJ* 


SE600 


2013 P080C 


6400 




STA* 


RECK 18 


P080O 


01A2 


P 






2014 P080E 


0842 




CLP. 


Q . 


2015 P080F 


4400 




STQ* 


DRT013 


P0810 


0180 


P: ■•'■•.■■■ 






2016 P0811 


0CO1 




enq 


1 


2017 P0812 


4400 




STQ+ 


ORT014- 


P0813 


01B1 


>•.'..'..: r " : . ••■■ 






2018 P0814 


4400 




STG> 


DRT012 


P0815 


01AF 


p •. 






2019- P0816 


0A03 




ENA 


3 


2020 P0817 


6400 




STA* 


RECK02 


P0818 


0167 


p. • 






2021 P0819 


5849 




RTJ* 


SE620 


2022 P081A 


6400 




STA+ 


RECK12 


P0818 


019C 


p-.. 






2023 P081C 


C400 




LOA* 


WRBUF+3071 


P031O 


2700 


p . 






202^ P081E 


6400 




STA+ 


RECK16 


P.081F 


01A0 


p ;•■/ 






2025 P0820> 


CO 00 




LOA 


=XRDBUF*3072 


P0821 


180 E 


p.. 






2026. P0822 


6409 




STA+ 


RECK14 


P0823 


019E 


p 






2027 P0324 


COOO 




LOA 


=XRDBUF-1 


..PQ825 


OFOD 


p .; •.. .. 







STATUS 1 = REA0Y*0ATA 



FUNCTION 

SET UP TO LOAD 

ICA 

*»♦ ERROR 7X *»» 
*»»» LOAD ICA REGISTER ♦»*» 

ST1 VALUE 



FUNCTION 

SET UP TO LOAD 

ISA VALUE 

♦»♦ ERROR 8X ••• 
*»♦» LOAD ISA REGISTER »♦»♦ 

SET WRITE BUFFER FOR COMPARE 
A=U?QATED TRACK/SECTOR ADDRESS 

CLEAR EARLY 
EXIT 

SET THE READ 
SWITCH 

SET INT SW : 

ST1 VALUE AFTER 
INITIATE READ 

GET ST1 VALUE 



DETERMINE LAST DATA 
WORD CST4 VALUE) 



01992 
01993 

01994 
01995 

01996 
01997 

01998 
01999 
02000 
02001 
02002 

02003 
02004 

02005 
02006 

02007 
02008 
02009 
02010 
02011 

02012 
02013 

02014 
02015 

02016 
02017 

02018 

02019 
02020 

02021 
02022 

02023 

02024 

02025 

02026 

02027 



L.. 



-60412800 



PAGE 52 



/ A 



O '0"C 



( ) 



o 



r 






DRMP80 




PAGE 


53 


2028 P0826 60FF 




STA- 


I 


2029 P0827 0844 




CLR 


A 


~~~ -283flHP0«2fr E808— - 


-•'■ ; " ■--'•.»-. ■■■■— 


- LOQ - 


=N3072 


P0829 onoo 








2031 P082A 5400 




RTJt 


SE700 


„„..._„ P-B82B 09D4 P - 


. ..,..:.,.._. — _. 






2032 P082C EOOO 




LOQ 


=N$0090 


P082D 0090 








• — -2fr33 P0S2E- 54 00 


SE680— 


RT J* 


IOCYL 


P082F 00E8 P 








2034 P0830 5400 




RTJf 


DRE400 


-— P0831 0297 P 


-;-.-- ■■:--•••- 






2035 P0832 £000 




LDQ 


=N3072 


P0833 OCOO 








<~~- -e036~PO834 COOO 


-■■■•'■--■-■—- 


LOA 


-XSE680 


P0835 082E P 








2037 


• '. 






~— - 2fr38 P0836 5400 


, .....-..,.„ 


- RTJ+ 


ORE300 


P0837 0256 P 








2039 P0838 0805 P 




AOC 


ST606-1 


--•^{Hr0-P0839- 08 45 


SE655 - 


-"-^AO*- 


ST600 - 


2041 P083A 01A7 




SOV 


SE665 


2042 P0830 582F 




RTJ* 


SE675 


r-r— 2043 PO83GC400— 


. — 


- LOA+- 


RECK18 - 


P0830 01A2 P 








2044 P083E 68C7 




STA* 


ST606 


i — ---2045 -P083F--58 2.3- .. 


. ..:. ...-,_._ 


RTJ» 


SE620 — 


2046 P0840 1800 




JMP 


SE670 


P0841 FFAF 








_._ 2047- PO 842 C400 


SE665 


LOA+ 


REGK12 


P0 843 019C P 








2048 P0844 6400 




STA* 


CKST02 


-— —P8845 O0F2 P 






- '- -• 


2049 P0846 5400 




RTJf 


DRE050 


P0847 0064 P 


. . 




... _. ... ■ 


2051 P0848 0000 


SE600 


NUH 


♦ ■ 


-- L ~2A52:-P0849 COOO - 


-■•' 


LDA 


=XWRBUF-1 


P084A 1800 P 








2053 P084B 60FF 




STA- 


I 


----2054- P084C COOO 


... . .... . .... 


LOA 


=N$7FOF 


P0840 7F0F 








2055 P084E 6833 




STA* 


ST60 8 


- --2056 P084F C830 


•••••" •-'•■ : 


LOA» 


ST601 


2057 P0850 AOOO 




AND 


=N$7FE0 


P0851 7FE0 








~~™2458 PQ852-0C60 


SE605 - 


ENQ 


96 


'V 2059 P0853 6101 


SE606 


STA- 


1.1 


2060 P0854 DOFF 




RAO- 


I 


- i-- £061- P0855 ODFE 


■. .. . 


INQ -■' 


-1- •-■•-■ ■ 


2062 P0856 0141 




SQZ 


SE610 


2063 P0857 18F8 




JMP» 


SE606 



DATE* 10/20/74 



CLEAR THE READ 
BUFFER 


02028 
02029 
02030 




02031 


*♦» ERROR 9X .••• 


02032 


•»** READ 1 TRACK *♦»* 


02033 


ALARM CERREOR) CHECK 


02034 




02035 


REPEAT ADDRESS 


02036 


*♦* ERROR AF ♦*» 


02037 
02038 


LAST TRACK ADDR 

LAST TRACK READ 

YES-SKIP 

SET FN-EAP.LY EXIT 


02039 
02040 
02041 
02042 
02043 


UPOATE ISA FOR NEXT XFER 
GET ST1 VALUE 
GO AGAIN 


02044 
02045 
02046 


ST1 FOR REPEAT 


02047 


SECTION 


02048 


EXIT 


02049 


INITIALIZE TRANSFER 


02051 
02052 


ADDRESS AND 

AND SECTOR COUNTER 


02053 
02054 


GET CURRENT TRACK ADDRESS 


02055 
02056 
02057 


EACH SECTOR=ITS OWN ADDRESS 

FILLED ONE SECTOR 
YES-SKIP 
NO-KEEP GOING 


02058 
02059 
02060 
02061 
02062 
02063 



V. 
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2064 P0858 D829 

2065 P0859 01A2 
2066- P065A 0901 

2067 P0858 18F6 

2068 P085C C823 
2Q&9 -POO 5 D -0920 

2070 P085F. A087 

2071 P085F 01A0 

2072 P086O 681F 

2073 P0861 1CE6 



SE610 



SE615 



RAO* 

SOV 

IN A 

JMP* 

LDA* 

INA 

AND- 

SOV 

ST A* 

JMP* 



ST60 8 
SE615 

■1 ■ 

SE605 

ST601 

$20 

H7FFF 



ST601 

CSE600I 



FILLED LAST SECTOR 
YES-SKIP 

NO-GO AGAIN 

BUMP THE TRACK 



EXIT 



02064 
02865 
02066 
02067 
02068 
02069 
♦♦•02070 
•♦♦02071 
02072 
02073 



2075 P0862 0000 

2076 P0863 C400 
.._„. P0864- 0020 

2077 P0865 0112 

2078 P0866 0A19 
2079- P0867 1802 

2080 P0868 0A09 

2081 P0869 1CF8 



SE620 



SE625 
SE630 



NUM 
LOA* 

SAN 
EN A 
JMP* 
ENA 
JHP* 



ORT002 

SE625 

$19 

SE630 

9 

<SE620J 



ARE INTERRUPTS UP 

YES-SKIP 
NO- JUMP 



ST1 VALUE 



02075 
02076 

02077 
02078 
02079 
02080 
02081 



2083 P086A 0000 
20S4 P0863 0A01 

2085 P086C 6400 
P086D 01BO 

2086 P086E 0842 

2087 P086F 4400 
P0870 01B1 

2088 P0871 1CF8 



SE675 



NUM 
ENA 
STA+ 

CLR 
STQf 

JMP* 



1 

ORT013 

Q 
ORT014 

(SE675) 



SET EARLY 
EXIT 

SET FUNCTION 
SWITCH 

EXIT 



02083 
02084 
02085 

02086 
02087 

02088 



2090 


P0872 


0000 


SE690 


NUM 


2091 


P0873 
P0874 


C400 
0022 P 




LOA+ 


2092 


P0875- 


0F45 




ARS 


2093 


P0876 
P0877 


E400 
001F P 




LOQ* 


2094 


P0878 


0852 


. 


TCQ 


2095 


P0879 


08 32 




AAQ 


2096 


P087A 


C07A 




LOA- 


2097 


P087B 


08 34 




AAQ. 


2098 


P087C 


01B0 




SNO 


2099 


P087D 


1CF4 




JMP* 


2101 


P087E 


0000 


ST600 


NUM 


2102 


PQ87F 


00 0.0 . 


ST601 


NUM 


2103 


P0880 


0000 


ST607 


NUM 


2104 


P0881 


0000 


ST608 


NUM 


2105 


P0882 


0000 


ST609 


... NUM 



DRT003 

5 
DRT001 

Q 

Q 

8IT15 

A 



ISE6901 



1ST AVAILABLE TRACK 

TRACK SIZE 

NOW HAVE NO. OF TRACKS 
LENGTH = 80 00-TRACKS 
EXIT 



NO. OF TRACKS 

CURRENT AOORESS f TRACK! 

NO. OF TRACKS 

8000-SECTORS 

1ST TRACK AOORESS 



02090 
02091 

02092 
02093 

02094 
02095 
02096 
02097 
02098 
02099 



02101 
02102 
02103 
02104 
02105 
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PARE 55 



DATE! 10/20/74 



2107 
2108 
2109 
2110 
2111 
2112 
2113 
2114 
2115 
2116 
2117 
2118 
2119 
2120 
2121 
2122 



********************** *************************************** *********** 

* » 

* SECTION 7 - • 
» WORST CASE PATTERNS. THE FOLLOWING DATA PATTERNS ARE USED • 

* TO WRITE EACH TRACK. » 
» NO* PATTERN NO. OF WORDS • 



************************************************************************ 



1. 


RANDOH 


83 




2. 


SLIDING ZEROES 


83 


(EACH PATTERN 


3. 


SLIDING ONES 


83 


CEACH PATTERN 


4. 


101010101010 


83 


MAX FREQ. CHANGE 


5. 


110011001100 


83 


50. OZ HAX 


6. 


000111000111 


84 


33. 3X MAX 


7. 


000011110000 


83 


25.0*/. MAX 



02107 
02108 
02109 
02110 
02111 
02112 
02113 
02114 
02115 
02116 
02117 
02118 
02119 
02120 
02121 
02122 



2124 

2125 
2126 
2127 

2128 
2129 
2130- 
2131 

2132 
2133 
2134 
2135 
2136 
2137 

2138 
2139 
2140 
2141 

2142 
2143 

2144 

2145 
2146 

2147 
2148 
2149 



P0883 
P0884 
P8885 
P0886 
P0887 
P0fr88 
P0889 
P088A 
-P088B 
P088C 
P088D 
P088S 
P088F 
P0890 
P0891 
P0892 
P0893 
P8894 
P0895 
P0896 
P0897 
P0898 
P0899 
P089A 
P089B 
P089C 
P089D 
P089E 
P089F 
P08A0 
P08A1 
P08A2 
P08A3 
P08A4 
P08A5 



C000 
1B0E 
-8C53 
5407 
C000 
I860 
60FF 
OAFE 
QC53 
5400 
0904 
0122 
0FC1 
18FA 
OA01 
0C53 
5400 
8904 
0132 
0FC1 
18 FA 
C000 
AAAA 
0C53 
5400 
09O4 
C00O 
CCCC 
0C53 
5400 
09D4 
C07A 
09E3 
6400 
09E6 



SECT7 



SE707 



SE715 
SE717 



SE725 



LOA 

ENQ- 
RTJ- 
LDA 

STA- 
ENA 
ENQ 
RTJf 

SAP 

AL^ 

JMP* 

ENA 

ENQ 

RTJ* 

SAM 
ALS 
JMP* 
LOA 

ENQ 
RTJ+ 

LDA 

ENQ 
RTJ* 

LDA- 

INA 

STA* 



=XWRBUF 

83 -- 

(RANDOM) 

=XWRBUF+82 

I 

-1 

83 

SE700 

SE715 

1 

SE707 

1 

83 

SE700 

SE725 

1 

SE717 

=NJAAAA 

83 

SE700 

=NSCCCC 

83 
SE700 

8IT15 

-28 

ST701 



1ST 110 WORDS=RANOOM 



NEXT AVAILABLE AODRESS-1 
1ST SLIDING ZEROES PATTERN 
= FFFE 



LAST=7FFF 

SLIDING ONES 1ST= 0001 
LAST=8000 



MAX FREQUENCY 



50Z MAX RATE 



SET UP 29 
COUNTER 



02124 

02125 
02126 
02127 

02128 
02129 
02130 
02131 

02132 
02133 
02134 
02135 
02136 
02137 

02138 
02139 
02140 
02141 

02142 
02143 

02144 

02145 
02146 

02147 
02148 
02149 
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2150 P08A6 01B0 




SNO 





2151 P08A7 0C02 


SE729 


ENQ 


2 


~~^2152-P08A8 C600 


SF727 


LDA+ 


ST700,Q 


P08A9 09E3 


P 






2153 P08AA 6101 




STA- 


1»I 


..... -215% FO8A0 00 FE 




inq 


-1 


2155 P08AC DOFF 




RAO- 


I 


2156 P08AO 0171 




SQM 


SE730 


... . 2-157- P08AE 18F9 




JHP» 


SE727 


2158 P08AF O«»00 


SE730 


RAO* 


ST701 


. P08B0 09E6 


P 






2159 P08B1 01A1 




SOV 


SE733 


2160 P0882 18F«» 




JNP» 


SE729 


2161 P0883 COOO 


SE733 


LOA 


=N$F0F0 


— — ~ — P0&B4 FOFQ 








2162 P08B5 0C53 




ENQ 


83 


2163 P08B6 51*00 




RTJ* 


SE700 


_— - ~PQBB7 0904 


P 






216«» P08B8 5400 




RTJ+ 


SE690 


P08B9 0872 


P 






j^_ 2-1^5- P08BA- 6400 




STA*. 


ST714 


P08B3 09E8 


P 






2166 P088C 5400 




RTJ* 


0RE150 


.-._ - P08BD 028D 


P 






2167 P08BE 48«tB 




STQ* 


ST704 


2168 P083F 4851 




STQ* 


ST705 


2169 P08C0 4859 




STQ* 


ST706 


2170 P08C1 0020 




INQ 


$20 


2171 P08C2 M»OQ 




STQ> 


ST708 


P08C3 0936 


P 






2172 P08C«> C«»00 




LOA* 


DRT002 


P08C5 0020 


P 






— 2173 JMJ8C6 0111 




SAN 


SE737 


217^ P08C7 1817 




JMP* 


SE735 


2175 P08C8 0A03 


SE737 


ENA 


3 


.. 2176 P08C9 5^00 




RTJ+ 


DRE090 - 


P08CA 0218 


P 






2177 P08C3 0179 


P 


ADC 


RI01-1 


2178 P08CC D87F 




NUM 


$D87F 


2179 P08CO 0003 




NUM 


3 


2180 P08CE 0A09 




ENA 


9 


— -2181 PQ8CF 6400 




STA+ 


ST703 


P08O0 0930 


P 






2182 P08O1 0A1O 




ENA 


$1D 


: 2183 P0802 6400 




STA+ 


DRT203 


P0803 00E5 


P 






218l» P0804 0A03 




ENA 


' 3 


2185 Pfl 8 05 5400 




RTJ* 


DRE090 


P08D6 0218 


P 






2186 P0807 010A 


P 


ADC 


FN02-1 


- -2187 P0808 0008 


. ... 


NUM 


8 


2188 P0809 1001 




NUM 


$1001 


2189 P080A 0C10 




ENQ 


$10 



BUILD 84 WORDS OF 

25% MAX 

RATE 



GET TRACK LENGTH IN 8000-TRACKS 



GET ISA VALUE 



INCREMENT TRACK ADDRESS 
FOR END XFER CHECK 

CHECK FOR I NTS REQUESTED 



NO- JUMP 



RECOGNIZE INT SET UP 
ST1 MASK 

VALUE 
YES-GET STATUS 1 FOR 
LAST RECHECK STATUS 



FOR INT PROCESSOR 



FUNCTION SET UP 
EOP CODE 



*** ERROR IX »•» 



02150 
02151 
62152 

02153 
02154 
02155 
02156 
02157 
02158 

02159 
02160 
02161 

02162 
02163 

02164 

02165 

•••02166 

•••02167 
•♦•02168 
•••02169 
•••02170 
♦•'02171 

02172 

02173 
02174 
02175 
02176 

02177 
02178 
02179 
02180 
02181 

02182 
02183 

02184 
02185 

02186 
02187 
02188 
02189 
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OATEI 10/20/71* 



.2190 P08DB 

P08DC 

"fl^i-^eBOD 

2192 P08DE 

2193 P080F 

—r-T-.--- P08£fl 

2194 P08E1 

2195 P08E2 
--'- ™~--P08E3 

2196 P08E4 

2197 P08E5 
2198P08E6 

2199 P08E7 

2200 P08E8 

2201 P08EA 

2202 P08E8 
„. -P06EC 

2203 P08EO 

2204 P08EE 
-^ P0«EF 

2205 P08F0 

2206 P08F1 
—~. *>08F2 



2207 P08F3 

2208 P08F*» 
2209-P08F5 

2210 P08F6 

2211 P08F7 
■-:-—- PG8P8 

2212 P08F9 

2213 P08FA 
-t^l^POSFfr 

2215 P08FC 

2216 P08FO 
— P08F€ 

2217 P08FF 

2218 P09D0 
--— -— P0901- 

2219 P0902 

2220 P0903 
-2221 P090V 

2222 P0905 

2223 P0906 
- — P0907- 

2224 P0908 

2225 P0909 
222*7 P09frA 

2227 P09QB 

2228 P090C 
---•— -■■ P090D 

2229 P090E 

2230 P090F 



5400 

00E8 

-1804 

0A19 

6400 

0930 

0A03 

5400 
-021»-f» — 

010A P 

270D P 
-lOOE 

0A09 

6400 
-0167 P 

0C20 

5400 

00E8-P- 

0A09 

6400 

0A03 
5400 
8218 -P 
010A P 
lOOE P 
-IMC-— 
0A03 
5400 
0218 P 
0167 P 
FFFF 
18 OE P-- 
0C30 
5400 
00 EB P 
0A03 
5400 
0218 P 
00F2 P 
FFFF 
1BQE P 
OA03 
5400 

010A P 

0000 

1008 

0A03 

5400 

0218 

0168 

FFEO 



RTJ+ 



IOCYL 



••»» ENABLE EOP INT »»»» 



02190 



SE735 



SE770 



ST704 



JMP» 

ENA 

STA+ 


SE770 

$19 
ST703 


ENA 
RTJ+ 


3 

ORE 090 


AOC 
AOC 
NUM 
ENA 
STA* 


FN02-1 

WROUF+3071 

$100E 

9 

RECK02 


ENQ 
RTJ* 


$20 
IOCVL 


ENA 
STAt- 


9 
CKST02 


ENA 
RTJ+ 


3 

ORE090 


AOC 
AOC 
NUM 
ENA 
RTJ+ 


FN02-1 

HR8UF 

S1O0C 

3 

ORE090 


AOC 
NUM 
AOC 
ENQ 
RTJ* 


RECK03-1 

SFFFF 

HRBUF 

$30 

IOCYL 


ENA 
RTJ+ 


3 

ORE 090 


ADC 
NUM 
AOC 
ENA 
RTJf 


CKST03-1 

SFFFF 

HRBUF 

3 

DRE090 


AOC 
NUM 
MIM 
ENA 
RTJ> 


FN02-1 

* 

$1008 
3 

ORE090 


ADC 
NUM 


RECK07-1 
$FFE0 





02191 
02192 
02193 




02194 
02195 


FUNCTION SET UP 
FCA ADDRESS 

STATUS 1 VALUE 


02196 
02197 
02198 
02199 
02200 


••• ERROR 2X »*» 
•»•• LOAD FCA REGISTER *»»» 


02201 
02202 


STATUS 1 VALUE 


02203 
02204 


FUNCTION SET UP 


02205 
02206 


FUNCTION SET UP 
ICA ADDRESS 


02207 
02208 
02209 
02210 
02211 


RECHECK STATUS SET UP 
ST3 MASK 
VALUE 

•»• ERROR 3X ••• 
•••• LOAD ICA REGISTER *»»* 


02212 
02213 
02214 
02215 
02216 




02217 
02218 


CHECK STATUS SET UP - 
ST3 MASK 
VALUE 


02219 
02220 
02221 
02222 
02223 


FUNCTION SET UP 
ISA VALUE 


02224 

02225 
02226 
02227 
02228 


RECHECK STATUS SET UP 
ST2 MASK 


02229 
02230 



c 
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DATE* 10/20/74 



2231 


P0910 


0000 




2232 


P0911 


0C40 




2233 


P0912- 


5400 






P0913 


00EB 


P 


2234 


P0914 


0A03 




2235 


PQ915 


5400 






P0916 


0218 


P 


2236 


P0917 


00F6 


P 


2237 


P0918 


FFEO 




2238 


P0919 


0000 




2239 


P091A 


OA03 




2240 


P0918 


5400 






P091C 


0218 


P 


2241 


P091D 


0166 


P 


2242 


P091E 


4003 




2243 


P091F 


0000 




2244 


P0920 


0844 




2245 


P0921 


6400 






P0922 


016A 


P 


2246 


P0923 


6400 







P0924 


016C 


P 


2247 


P0925 


0A03 




2248 


P0926 


5400 






P0927 


0218 


P 


2249 


P0928 


0180 


P 


2250 


P0929 


DB7F 




2251 


P092A 


0003 




2252 


P0929 


0A09 




2253 


P092C 


5400 






P092O 


0218 


P 


2254 


P092E 


019A 


P 


2255 


P092F 


087F 




2256 


P0930 


0000 




2257 


P0931 


FFFF 




2258 


P0932 


270E 


P 


2259 


P0933 


FFFF 




2260 


P0934 


FOFO 




2261 


P0935 


FFEO 




2262 


P0936 


0000 




2263 


P0937 


0A02 




2264 


P0938 


6400 




._ 


P0939 


0181 


P 


2265 


P093A 


0842 




2266 


P0933 


4400 






P093C 


0180 


P 


2267 


P093O 


5400 






P093E 


0213 


P 


2268 


P093F 


0C50 




2269 


P0940 


5400 






P0941 


OOEB 


P 


^270 


P0942 


5400 






P0943 


0297 


P 


2271 


P0944 


E8E3 





ST705 



ST706 



ST703 



ST708 



NUM 
ENQ 
RTJ+ 


* 

$40 

IOCYL 


EN A 
RTJK 


3 

ORE090 


AOC 
NUM 
NUM 
ENA 
RTJ* 


CKST07-1 
SFFEO 

* 

3 

DRE090 


AOC 
NUM 
NUM 
CLR 
STA* 


RECK02-1 

3 



A 

RECK05 


STA+ 


RECK07 


ENA 
RTJ+ 


3 

ORE090 


AOC 
NUM 
NUM 
ENA 
RTJ* 


MNTROI-1 

$DB7F 

3 

9 

ORE090 


AOC 
NUM 
NUM 
NUM 
AOC 
NUM 
NUM 
NUM 
NUM 
ENA 
STA«- 


RECK11-1 
$0B7F 

» 

SFFFF 

HRBUF+3072 

SFFFF 

SFOFO 

SFFEO 

* 

2 
ORT014 


CLR 
STQf 


Q 
ORT013 


RTJ+ 


ORE170 


ENQ - 
RTJ* 


$50 
IOCYL 


RTJ+ 


DRE400 


LDQ* 


ST703 



VALUE 

»»» ERROR 4X »»' 
»••• LOAD ISA RE&ISTER •••» 



CHECK STATUS SET UP 
ST2 MASK 
VALUE 



RECHECK STATUS 
ST2 VALUE 
ST3 MASK 

KILL MASKS FOR 
ST2 AND ST4 



MONITOR STATUS SET UP 
ST1 MASK 
VALUE 



2ND RECHECK STATUS 
ST1 MASK 

VALUE 
ST3 M 

V 
ST4 M 

V 
ST2 M 

V 
SET WRITE SH 



CLEAR EARLY 
EXIT 

SET INT SH IF REQUESTED 

♦»» ERROR 5X »•• 
**♦» WRITE 1 TRACK »**» 

ALARM CERREORI CHECK 

SET ST1 VALUE 



02231 
02232 
02233 

02234 
02235 

02236 
02237 
02238 
02239 
02240 

02241 
02242 
02243 
02244 
02245 

02246 

02247 
02248 

02249 
02250 
02251 
02252 
02253 

02254 
02255 
02256 
02257 
02258 
02259 
02260 
02261 
02262 
02263 
02264 

02265 
02266 

02267 

02268 
02269 

02 270 

02271 
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DATE* 10/20/7«» 



2272 P09«t5 *808 




STQ» 


ST707 








02272 


2273 P09*6 E8EF 




LOQ» 


ST708 








02273 


~~227%-P09«f7 *80C 




STG» 


ST709 


ST2 VALUE 






0227* 


2275 P09*t8 *81C 




STQ* 


ST710 








02275 


2276 P09*9 0A08 




ENA 


8 








02276 


-2277 P09*A 5*00 




RTJ+ 


DRE090 








02277 


P09*B 0218 P 
















2278 P09*C 00F1 P 




ABC 


CKST02-1 


CHECK STATUS SET UP 






02278 


--- 2279 P09*0 0000 


ST707 


NUM 


* 


ST1 VALUE 






02279 


2280 P09«»E FFFF 




NUM 


SFFFF 


ST3 MASK 






02280 


2281 P09*F 270E P 




ADC 


WRBUF«-3072 


V 






02281 


2282 PQ950 FFFF 




NUM 


$FFFF 


ST* M 






02282 


2283 P0951 FOFO 




NUM 


$F0F0 


V 






02283 


228* P0952 FFEO 




NUM 


$FFE0 


ST2 M 






0228* 


— -22*5^0953 Qeo&- 


ST709 


NUM- 


■ * 


V 






02285 


2286 P095* 0A03 




ENA 


3 








02286 


2287 P0955 5*00 




RTJ+ 


DRE090 








02287 


-- - - -P0956-0218 P 
















2288 P0957 010A P 




ADC 


FN02-1 


FUNCTION SET UP 






02288 


2289 P0958 1B0O P 




ADC 


RDBUF+3071 


FCA VALUE 






02289 


~~ 2*9fl~^0959~ltiffE 


■ — - 


— NUM 


$10«E 








02290 


2291 P095A OA08 




ENA 


8 








02291 


2292 P095B 5*00 




RTJ* 


DRE090 








02292 


H»095e- -0218-P 


-; 














2293 P095D 0166 P 




ADC 


RECK02-1 


RECHECK STATUS 






02293 


229* P095E 0009 




NUM 


9 


ST1 VALUE 






0229* 


-2295 P095F FFFF 




NUM 


SFFFF 


ST3 MASK 






02295 


2296 P0960 270E P 




ADC 


WRBUF*3072 


V 






02296 


2297 P0961 FFFF 




NUM 


SFFFF 


ST* M 






02297 


2298 PQ962 FOFO 




NUM 


$F0F0 


V 






02298 


2299 P0963 FFEO 




NUM 


SFFEO 


ST2 M 






02299 


2300 P096* 0000 


ST710 


NUM 


* 


V 






02300 


- 2301-P0965-5*t)0- 


-— 


RTJ+ 


SE780 


SET EARLY EXIT AND 1 


FN 


SHITCH 


02301 


P0966 09DB P 
















2302 P0967 0C60 




ENQ 


$60 


*♦» 


ERROR 6X ♦*» 


02302 


— .. 9'zn'z.. DiiQAA -Cdnn 




RT J+ 


IOCYL 


•»»• LOAO FCA REG FOR 


REAO ♦•»» 


02303 


Cutla rUTOo 9HUU 


P0969 OOEB P 
















230* P096A 0A09 




ENA 


9 


ST1 VALUE 






0230* 


2305- P096B -6*00 - 




STAM- 


CKST02 








02305 


P096C 00F2 P 
















2306 P096O 0A03 




EN A 


3 








02306 


- 2307-P096E 5*00 




RTJ* 


ORE090 








02307 


P096F 0218 P 
















2308 P0970 010A P 




ADC 


FN02-1 


FUNCTION SET UP 






02308 


-' 2309 P0971 OFOE P 


ST711 


ADC 


RDBUF 


ICA VALUE 






02309 


2310 P0972 100C 




NUM 


S100C 








02310 


2311 P0973 C8F0 




LDA* 


ST711 


ST3 VALUE 






02311 


- 2312 P097* 6*00 




ST A* 


RECKO* 








02312 


P0975 0169 P 
















2313 P0976 0C70 




ENQ 


$70 


»#* 


ERROR 7X •»• 


02313 


- 231*- P0977 5*00 -— 


-•■■■■ -■ 


RTJ+ 


IOCYL 


*»** LOAD ICA RESISTER »••• 


0231* 


P0978 OOEB P 
















2315 P0979 C8F7 




LDA* 


ST711 


ST3 VALUE 






02315 



r 
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ORMP80 


PA3E 


60 


2316 P097A 6400 


STA* 


CKST04 


P0973 0OF4 P 






2317PQ97C C400 


LOA+ 


ST704 


P097D 0909 P 






2318 P097E 6807 


STA* 


ST712 


2319 P097F 6400 


ST A* 


RECK08 


P0980 0160 P 






2320 P0981 0A03 


ENA 


3 


2321 P0982 5400 


RTJ+ 


ORE090 


P0983 0218 P 






2322 P0984 010A P 


ADC 


FN02-1 


2323 P0985 0000 ST712 


NUM 


+ 


2324 P0986 1008 


NUM 


$1008 


2325 P0987 E072 


LDQ- 


BTT07 


2326 P0988 5400 


RTJ+ 


IOCYL 


P0989 OOEB P 






2327 P098A E8FA 


too* 


ST712 


2328 P098U 4400 


STQ* 


CKST08 


P098C 0OF8 P 






2329 P098D 0A03 


ENA 


3 


2330 P098E 5400 


RTJ* 


ORE090 


O098F 0218 P 






2331 P0990 0166 P 


AOC 


RECK02-1 


2332 P0991 0003 


NUM 


3 


2333 P0992 0000 


NUH 





2334 P0993 0842 


CLR 


Q 


2335 P0 994 4400 


STQ+ 


RECK05 


P0995 016A P 






2336 P0996 4400 


STQ+ 


RECK 07 


P0997 016C P 






2337 P0998 EOOO 


LOO- 





2338 P0999 190E P ST715 


ADC 


RDBUF+3072 


2339 P099A 4400 


STQ* 


RECK14 


P0999 019E P 






2340 P099C 0842 


CLR 


Q 


2341 P099O 4400 


STQf 


ORT013 


P099E 0180 P 






2342 P099F 0A01 


ENA 


1 


2343 P09A0 6400 


STA+ 


ORT014 


P09A1 01B1 P 






2344 P09A2 5400 


RTJ+ 


DRE170 


P09A3 0213 P 






2345 P09A4 COOO 


LOA 


=XR08UF-1 


P09A5 OFOO P 






2346 P09A6 60FF 


STA- 


I 


2347 P09A7 0844 


CLR 


- A 


2348 P09A8 EOOO 


LOQ- 





2349 P09A9 OCOO ST716 


NUH 


3072 


2350 P09AA 582A 


RTJ* 


SE700 


2351 P09A8 EOOO 


LOQ 


=N$90 


--P894C -0090 






2352 P09AO 5400 


RTJ+ 


IOCYL 


P09AE OOEB P 







DATEI 10/20/74 



GET ISA 



FUNCTION CALL SET UP 
ISA VALUE 

♦*♦ ERROR 8X »»» 
»•»» LOAD ISA REG »•»» 

GET ISA FOR 
CHECK STATUS 



RECHECK STATUS 
ST1 VALUE 
3 MASK 
KILL ST2 ANO 
ST4 MASK 



ST3 VALUE AFTER 1 TRACK READ 



CLEAR EARLY EXIT 



SET READ SH 



SET INT SH IF REQUESTEO 



CLEAR THE READ 
BUFFER 



*** ERROR 9X »•» 
♦**» READ 1 TRACK »»*» 



02316 

02317 

02318 
02319 

02320 
02321 

02322 
02323 
02324 
02325 
02326 

02327 

02328 

02329 
02330 

02331 
02332 
02333 
02334 
02335 

02336 

02337 
02338 
02339 

02340 
02341 

02342 
02343 

02344 

02345 

02346 
02347 
02348 
02349 
02350 
02351 

02352 
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c 



"n 'o 



C 



C 





ORHP80 






PAGE 


61 





2353 


P09AF 
P09B0 


5400 
0297 


P 




RTJ+ 


ORE40D 




2354- 


P09B1 


E8F7 




•■ •— -•• -■-■— 


-loo* 


ST716 




2355 


P09B2 
P09B3 


CO00 
08E1 


P 




LOA 


=XSE770 




2356 


-~-~ : 


.._... 




•» 








2357 


P0 9 B4 
P09B5 


5400 
0256 


P 




RTJ* 


ORE300 




2358 


PQ986 


0<384 


P 


- - - 


- AOC 


ST712-1 




2359 


P09B7 
P09B8 


C400 
0930 


P 


SE755 


LDA* 


ST703 




2360 


P09B9 
P09BA 


6400 
00F2 


P 


. 


STA* 


CKST02 




2361 


P09B8 


E800 






LDQ* 


ST715 




^362 


P09BC- 
P09BO 


4400 
00F4 


P 




~STQ*~- 


CKST04 




2363 


P09BE 


C400 






LOA+ 


ST708 




■ ~~ rr ~- 


-P099F 


0936 


P 


: --- 


•-.- --■— • 


- ■ •-- ■•■-.-• 


...:._. 


2364 


P09C0 
P09C1 


640 
0909 


P 




STA+ 


ST704 




-2^65-P09e2 


-64 oo 







--STA+ — 


— ■ ST705- •--'-■--- 


...... 




P09C3 


0910 


P 










2366 


P09C4 


6400 






STA+ 


ST706 




__._._„ 


-P09G5t 


0919 


P 










2367 


P09C6 
P09C7 


6400 
0DF8 


P 




STA+ 


CKST08 




2368 


P09C8 


0920 






-INA 


$20 




2369 


P09C9 


01A0 






SOV 







2370 


P09CA 


AQ87 






ANO- 


H7FFF 




2371 


P09C8 
P09CC 


6400 
0936 


P 


■ _ '• 


STA+ 


ST708 




2372 


PU9C0 


58 OE 






RTJ* 


SE780 




2373 


PQ9CE 


081A 




- — " - 


RAO* 


ST714 




2371* 


P09CF 


01A2 






SOV 


SE775 




2375 


P09D0 
PQ9D1 


1400 
08E1 


P 




JMP+ 


SE770 




2376 


P0902 


5400 




SE775 


RTJ+ 


DRE050 




'..■.iVli.-':,-. 


P09D3 


0064 


P 




. ... 






2378 


P09D4 


0000 




SE700 


NUM 


* 




2379 


P09D5 


6101 




SE710 


STA- 


1,1 




2380 


P09D6 


00 FF 






RAO- 


I 




2381 


P09D7 


ODFE 






INQ 


-1 




2382 PG9D8 


0141 






SQZ 


SE705 




2383 


P0909 


18FB 






JMP« 


SE710 




2381* 


P09DA 


1CF9 




SE705 


JMP* 


(SE700) 




2386 


P09DB 


0000 




SE780 


NUM 


» 




^387 


-P09OC 


-0A08 






ENA - 


- ■ 




2388 


P09DO 
P09DE 


6400 
01B1 


P 




ST At 


DRT014 





OATEI 10/20/74 



ALARM (ERREOR) CHECK 



»*• ERROR AF »*» 



COMPARE THE DATA 

LAST TRACK AOOR 
ST1 VALUE 



ST3 VALUE 

GET INCREMENTED ISA 
SET UP NEXT 
-ISA- VALUE 



GET NEXT ST2 VALUE 



SET EARLY EXIT ANO FN SWITCH 

SKIP AFTER LAST TRACK 
HRITE NEXT TRACK 

EXIT 



STORE IN HRITE 
BUFFER 



02353 

A2354 
02355 

02356 
02357 

02358 
02359 

02360 

02361 
02362 

02363 

02364 

02365 

02366 

02367 

•••02368 
•••02369 
•••02370 
•••02371 

02 372 
02373 
02374 
02375 

02376 



02378 
02379 
02380 
02381 
02382 
02383 
02384 



SET FUNCTION SW 



02386 
02387 
02388 
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0*1 


1P80 




P4GE 


62 


2389 P090F 


OA01 




ENA 


1 


2390 P09EO 


6*00 




STA+ 


DRT013 


P09E1 


OiBO P 






2391 P09E2 


1CF8 




JMP* 


CSE780) 


2393 P09E3 


1C71 


ST700 


NUM 


J1C71 


239* P09E* 


C71C 




NUM 


JC71C 


2395-PQ9E5 


71 C7 




NUM 


S71C7 


2396 P09E6 


0000 


ST701 


NUM 


» 


2397 P09E7 


0000 


ST713 


NUM 


* 


2398 P09E8 


0000 


ST71* 


NUM 


* 



DATE* 10/20/7* 



SET EARLY EXIT 



12. 5> PATTERNS 



8000-28(BASE 10) 
DATA ORDINAL 
8000-NO. OF TRACKS 



02389 
02390 

02391 



02393 
02394 
02395 
02396 
02397 
02398 
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OATEt 10/20/74 



2*00 
2401 
2482 
2403 
2404 
2*05 
2406 
2407 
2408 
2409 
2410 
2*11 
2412 



************************* ****»*******»**»*»**»**»»*»*»**» *************** 

* ♦ 
•»■'- SECTION 8 » 

* THE MANIPULATIVE SECTION ALLOWS THE OPERATOR TO SELECT * 
» THE FOLLOWING OPERATING MOOEtS). DATA LENGTH IS SELECTABLE » 

* FROM 1-3072. THE DATA WORD IS ALSO SELECTABLE. » 

* 1. WRITE ONLY » 

* 2. READ ONLY • 

* 3. REAO AND DATA CHECK * 

* 4. WRITE ANO READ * 
» 5. WRITE/READ AND OATA CHECK * 

*. .... » 

************************************************************************ 



0240 
02401 
02402 
02403 
02404 
02405 
02406 
02407 
02408 
02409 
02410 
02411 
02412 



2414 

2415 

2416 
-2417- 

2418 
--2419 

2420 

-2421 

2422 

2423 
2424 
2425 

2426 
2427 
2428 

2429 

2430 

2431 

2432 

2433 
2434 

2435 

2436 

-2437 

2438 



P09E9 
P09EA 
P09EB 
PQ9EC 
P09ED 
P09EE 
P09EF 
P09F0 
P09F1 
P09F2 
P09F3 
P09F4 
P09F5 
P09F6 
P09F7 
P09F8 
P09F9 
P09FA 
P09F8 
P09FC 
P09FO 
P09FE 
P09FF 
POfrOQ 
P0A01 
P0A02 
P0AQ3 
P0A04 
POA05 
P0A06 
P0A07 
P0A08 
P0A09 
POAOA 
POAOB 
P0AOC 
POAOD 
POAOE 



C400 

0025 

A000 

OFFF 

0822 

6400" 

OBOE 

0104 

9000 

OCOO 

0108 

0137 

CO00 

0B17 

0C15 

5408 

5400 

0013 

18ED 

ODFE 

FOOO 

OFOE 

4400 

OAAF 

FOOO 

OCOO 

4400 

0A53 

C400 

OBOE 

08 42 

3000 

00 60- 

0141 

0901 

60 FF 

C400 

0022 



SECTS 



SE802 



SE804 



SE805 



LOA* 

AND 

TRA 
-ST A* 

SAZ 
SU3 

SAZ 
SAM 
LOA 

ENQ 

RTJ- 

RTJf 

JMP* 

INQ 
ADQ 

STQ* 

ADQ 

STQ* 

LOA* 

CLR 
DVI 

SQZ 
INA 
STA- 
LDA+ 



DRT006 

=N$0FFF 

Q 
ST810 

SE802 
=N$C00 

SE804 
SE8 04 
=XST816 

ST817-ST816+1 

CTYPEOUT) 

DRE003 

SECTR 

-1 

=XRDBUF 

ST801 

=N3072 

ST800 

ST810 


=N96 

SE805 

1 

I 

DRT003 



GET TRANSFER LENGTH 



SAVE FOR DATA COMPARE 

CHECK FOR TRANSFER LENGTH 
FROM i-COO 



ILLEGAL LENGTH 



GO SACK FOR PARAMETERS 

AND RE-START 
FORM READ FCA 



FORM WRITE FCA 



GET THE LENGTH 



DETERMINE NO. OF SECTORS 



NOW HAVE TOTAL SECTORS 

WILL TRACK AOORESS INCREMENT 



02414 

02415 

02416 
02417 

02418 
02419 

02420 
02421 
02422 

02423 
02424 
02425 

02426 
02427 
02428 

02429 

02430 

02431 

02432 

02433 
02434 

02435 
02436 
02437 
02438 
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ORHPBO 



2439 
2440 

2441 
2442 
2443 
2444 
2445 
2446 
2447 
2448 

2449 

2450 

2451 

2452 
2453 

2454 
2455 
2456 
2457 
2458 

2459 
2460 
2461 
2462 

2463 
2464 
2465 
2466 

2467 
2468 

2469 
2470 
2471 
2472 
2473 
2474 

-2475- 
2476 

-2477 

2478 
2479 



POAOF 
P0A10 
P0A11 
P0A12 
P0A13 
P0A14 
P0A15 
P0A16 
P0A17 
P0A18 
P0A19 
P0A1A 
P0A13 
P0A1C 
P0A10 
P0A1E 
POAiF 
P0A20 
P0A21 
P0A22 
P0A23 
P0A24 
P0A25 
P0A26 
P0A27 
P0A28 
P0A29 
P0A2A 
P0A23 
P0A2C 
P0A2D 
PQA2E 
P0A2F 
P0A30 
P0A31 
PJA32 
P0A33 
P0A34 
P0A35 
P0A36 
P0A37 
P0A38 
P0A39 
P0A3A 
R0A3B 
P0A3C 
P0A3D 
P0A3E 
P0A3F 
P0A40 
P0A41 
P0A42 
P0A43 



0822 

AOOO 

00 IF 

80FF 

09DF 

0131 

0D20 

CO 87 

0882 

01A0 

4400 

080C 

5400 

0280 

4400 

0A6B 

4400 

0AC4 

CO 75 

EOOO 

0012 

5406 

5201 

0A02 

68 IB 

E40 

0020 

0151 

1810 

0A09 

6400 

0B06 

0A08 

6812 

0A1D 

6400 

00E5 

0A03 

5400 

0218 

0179 

0B63 

0003 

1804 

0A19 

6400 

0806 

0A03. 

5400 

0218 

010A 

0000 

1001 



SE810 



SE815 



SE8 20 



SE822 



ST815 



PA3E 


64 


TRA 


Q 


AND 


=N$1F 


AOD- 


I 


INA 


-32 


SAM 


SE810 


INQ 


32 


LOA- 


H7FFF 


LAQ 


Q 


SOV 





STQ* 


ST802 


RTJ+ 


DRE150 


STQ> 


ST803 


STQ* 


ST804. 


LDA- 


BIT10 


LOQ 


=XORE003-1 


RTJ- 


IJUMP1 


RTJ- 


1,0 


ENA 


2 


STA* 


ST815 


LOQ> 


DRT002 


SQN 


SE815 


JMP* 


SE820 


ENA 


9 


ST A* 


ST805 


ENA 


8 


STA* 


ST815 


ENA 


$1D 


STA+ 


DRT203 


ENA 


3 


RTJ* 


ORE090 


ADC 


RI01-1 


NUM 


$DB63 


NUM 


3 


JHP* 


SE822 


ENA - 


$19 


STA* 


ST805 


ENA 


3 


RTJ* 


DRE090 


AOC 


FN02-1 


NUM 


* 


NUM 


$1001 



DATE! 10/20/7^ 



NO-SKIP 

YES-INCREMENT THE TRACK 



GET ISA VALUE FOR 
READ AND WRITE 



CHECK FOR RE-ENTER 
PARAMETERS 



YES 

SET UP DISABLE INT 

CODE 
NO CHECK FOR INTERRUPTS 

YES-SKIP 
NO- JUMP 

FIX ST1 VALUE AFTER 
READ OR WRITE 

ENABLE EOP INT 

CODE 
INT PROCESSOR ST1 

VALUE 



RECOGNIZE INT 
ST1 MASK 
VALUE 

ST1 VALUE AFTER READ OR WRITE 



FUNCTION SET UP 

ENABLE/DISABLE CODE 



02439 
02440 

02441 

02442 

02443 

02444 

•♦•02445 

♦•♦02446 

♦•♦02447 

•♦♦02448 

02449 

02450 

02451 

02452 
02453 

02454 
02455 
02456 
02457 
02458 

02459 
02460 
02461 
02462 

02463 
02464 
02465 
02466 

02467 
02468 

02469 
02470 
02471 
02472 
02473 
02474 

02475 
02476 

02477 
02478 
02479 
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DATE! lQ/20/7«» 



2480 P0A44 OCiO 


ENQ 


$10 


2481 P0A45 5400 


RTJ* 


IOCYL 


- ~ P0A46 O0E8 P 


- ■'•■- ■ 




2482 P0A47 OA09 


ENA 


9 


2483 P0A<»3 6400 


STA* 


CKST02 


:-:■•■ - PQA49 0OF2 P 






2484 P0A4A C400 


LDA* 


ORT006 


P0A48 0025 P 






-- 2485 P0A4C A079 


ANO- 


8IT14 


2486 P0A4D 0111 


SAN 


SE827 


2487 P0A4E 185D 


JMP* 


SE835 


2488 P0A4F QA03 SE827 


ENA 


3 


2489 P0A50 5400 


RTJ* 


DRE090 


P0A51 0218 P 






— — 249O~P0A52 010A P 


ABC 


FN02-1 


2491 P0A53 0000 ST800 


ADC 





2«»92 P0A54 100E 


NUM 


3100E 


24^3-^0 A 55 - 0A09~ - 


ENA — 


- 9- -.-. 


2494 P0A56 6400 


STA* 


RECK02 


P0A57 0167 P 






--— 2495~POA5B~0C20 — - 


ENQ 


$20- 


2496 P0A59 5400 


RTJf 


IOCYL 


P0A5A OOEB P 






— -2497 P0A5B OA09 


ENA 


9 


2498 P0A5C 6400 


STA* 


CKST02 


P0A5O 00F2 P 






2499 P0A5E QA03 


ENA 


3 


2500 P0A5P 5400 


RTJ* 


ORE090 


P0A60 0218 P 






- 2501 P0A61 -010A P 


ABC 


FN02-1 


2502 P0A62 1B0E P 


AOC 


WR8UF 


2503 P0A63 100C 


NUM 


SIOOC 


2504 P0A64 0C30 ~ 


ENQ 


$30 


2505 P0A65 5400 


RTJ* 


IOCYL 


P0A65 OOEB P 






— 2506 P0A67 0A03 


ENA 


3 


2507 P0A68 5400 


RTJ* 


ORE090 


P0A69 0218 P 






■■-■— 2508 P0A6A OtOA P 


AOC 


FN02-1 


2509 P0A6B 0000 ST803 


NUM 


♦ 


2510 P0A6C 1008 


NUM 


$1008 


— 2511POA60 OC40 


ENQ 


$40 


2512 P0A6E 5400 


RTJ* 


IOCYL 


P0A6F OOEB P 






- - 2513— P0A70 £000 


LOQ 


=XWRBUF-1 


P0A71 1B0D P 






2514 P0A72 40FF 


STQ- 


I 


--Txr-2515-PO A7-* G4O0 


LOA*- 


-DRTO05 


P0A74 0024 P 






2516 P0A75 E400 


LDQ* 


ST810 


— POA76-0BOE -P — — - 


-•■ '"•— -■- 


■■— - 


2517 P0A77 6400 


STA* 


ST814 


P0A78 OBOA P 







»*• ERROR IX »»♦ 

*»»» ENABLE EOP INT ♦»*♦ 

EXPECT READY/DATA 
STATUS 

CHECK FOR WRITE REQUEST 



YES-SKIP 
NO-GO READ 



FUNCTION SET UP 
FCA VALUE 



STATUS1 VALUE 

»»* ERROR 2X »♦* 
»»»• LOAO WRITE FCA VALUE »»»• 



ST1 VALUE 



FUNCTION SET UP 
ICA VALUE 

»»* ERROR 3X ••• 
»»•• LOAO WRITE ICA VALUE »••• 



FUNCTION 
ISA VALUE 

••• ERROR 4X •»• 
*»»» LOAO WRITE ISA VALUE ♦*** 



SET UP THE WRITE 

BUFFER 
ST4 VALUE 



02480 
02481 

02462 
02483 

02484 

02485 
02486 
02487 
02488 
02489 

02490 
02491 
02492 
02493 
02494 

02495 
02496 

02497 
02498 

02499 
02500 

02501 
02502 
02503 
02504 
02505 

02506 
02507 

02508 
02509 
02510 
02511 
02512 

02513 

02514 
02515 

02516 

02517 
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OATEt 10/20A7*» 



2518 P0A79 5fc00 




RTJ* 


SE700 


P0A7A 09D<» 


P 






■3*1-9 P0A7B 0804 




SET 


A 


2520 P0A7C 6*»00 




STA* 


ST813 


P0A7D 0B09 


P 






2521 PQA7E 0A03 




- ENA 


3 


2522 P0A7F 5*»00 




RTJ* 


ORE090 


P0A8 0218 


P 






2523-P0A81 018D 


P 


AOC 


HNTR01-1 


252<» P0A82 DB7F 




NUM 


$0B7F 


2525 P0A83 0003 




NUM 


3 


2526 PQA8fc C8CE 




LDA» 


ST800 


2527 P0A85 0901 




INA 


1 


2528 P0A86 6400 




STA* 


ST806 


P0A87 0808 


P '■. 


- 




2529 P0A88 5400 




RTJ* 


SE830 


P0A89 0B00 


P 






2530 P0A8A 0A02 




ENA 


2 


2531 P0A83 6«»00 




STAf 


ORT014 


P0A8C 01B1 


P 






2532 P0A80 0844 




CLR 


A 


2533 P0A8E 6^00 




STA* 


ORT013 


P0A8F O1B0 


P 






2534 PQA90 5400 




RTJ+ 


DRE170 


P0A91 0213 


P 






2535 P0A92 COOO 




LOA- 





2536 P0A93 DB61 


ST811 


NUM 


$0861 


2537 P0A9<» 6400 




STA+ 


RECK01 


P0A95 0166 


P 






2538 P0A96 0C50 


. . 


ENQ 


$50 


2539 P0A97 5«f00 




RTJ* 


IOCYL 


P0A98 OOEB 


P 






2540 P0A99 5400 




RT.J* 


ORE d 00 


P0A9A 0297 


P 






25<»1 P0A9B 5<»00 




RTJ* 


SE8«»0 


PQA9C 080F 


P.... 






25*»2 P0A9O COOO 




LOA- 


0. 


25«f3 P0A9E DB7F 


ST812 


NUM 


SDB7F 


2544 P0A9F 6400 


- -. . 


STA+ 


RECK01 


POAAO 0166 


P 






2545 P0AA1 C800 




LDA 


ST805 


. P0AA2 00 6V 








25d6 P0AA3 6«»00 




STA* 


CKST02 


POAA<» 00F2 


P 






2547 P0AA5 C400 


.- - -. - 


LOAk 


ORT006 


P0AA6 0025 


P 






25^8 P0AA7 A07A 




ANO- 


BIT15 


.2549- POAAB. 0112 




SAN 


SE835 


2550 P0AA9 1*»00 




JMP* 


SECT8 


POAAA 09E9 


P 






Z551 PQAAB OA03 


SFB35 


. ENA 


. .3— 


2552 POAAC 5<»00 




RTJ+ 


DRE090 


POAAO 0218 


P 







ST4 MASK 



MONITOR STATUS SET UP 
ST1 MASK 
VALUE 



GO SET UP 2NO RECHECK STATUS 
SET WRITE SNITCH 

CLEAR EARLY EXIT 

SET INT SH IF REQUESTED 

CHANGE 

ST1 MASK 



»»» ERROR 5X »»» 

INITIATE WRITE »••* 



ALARM CERREOR) CHECK 
SET FN AND EARLY EXIT SW 

RESTORE ST1 MASK 
ST1 VALUE FOR REPEAT 

CHECK FOR WRITE ONLY 



SKIP FOR READ 
REPEAT WRITE 



02518 

02519 
02520 

02521 
02522 

02523 
02524 
02525 
02526 
02527 
02528 

02529 

02530 
02531 

02532 
02533 

0253 d 

02535 
02536 
02537 

02538 
02539 

02540 

025%1 

025<»2 
02543 
02544 

02545 

02546 

02547 

02548 
02549 
02550 

02551 
02552 
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DATE! 10/20/74 



ST801 



ST809 



OA03 
5400 



2553 PDAAE 010A 

2554 POAAF OOOO 
'-"-2535- PO ABO 100E 

2556 P0AB1 0C60 

2557 P0A82 5400 
tvt - r-~— ^8Afi3 OOEB 

2558 P0AB4 0A09 

2559 P0AB5 6400 
i ^„_."~:- 1> fr AB 6 0OF2 

2560 P0AB7 0A03 

2561 PQAB8 5400 

- - --.•- -P8AB9-0218 

2562 POABA 010A 

2563 POABB OFOE 
— -2564-POABC ±00C- 

2565 POABO 0C70 

2566 POABE 5400 
—---- -----POABF-OOEB 

2567 POACO 

2568 PQAC1 
P8AO2-0218- P 

2569 P0AC3 010A P 

2570 P0AC4 0000 STB04 
~~—2 571- P0AC5 10 8 ---- 

2572 P0AC6 E072 

2573 P0AC7 5400 
------- P0AC8 OOEB P - 

2574 P0AC9 0842 

2575 POACA 4400 

-- — -~ - POAGB Q1BD ■■*»•—. 

2576 PDACC C400 
POACO 0025 P 

— ^577~ PO ACE-A079— 

2578 POACF 0111 

2579 POADO 4839 

•~ —2560-P0AO1-8GO1 SE837 
2581 P0AQ2 4400 

P0AD3 01B1 P 
*-~~2562 P8AB4 080/H 

2583 P0AD5 0901 

2584 P0AD6 6832 

«r ~2£85^P4)A07 5400 - 

J P0AD8 0213 P 
2586 P0AD9 C8B9 

^— 25$7-P0AB* €408 — - 

POADB 0165 P 

2588 POAOC COOO 

-—■.■. -P8»0Br8F8O P - - 

2589 POAOE 60FF 

2590 POAOF 0844 

".-— e59l-PflA E6-E8 2E- ■—-- ~— 

2592 P0AE1 5400 

P0AE2 09D4 P 



AOC 
AOC 

NUM 

ENQ 
RTJ+ 


FN02-1 



$100E 

$60 

IOCYL 


ENA 
STA* 


9 
CKST02 


ENA 
RTJ* 


3 

ORE090 


AOC 
AOC 

— NUM 

ENQ 
RTJ+ 


FN 02-1 
ROBUF 

$180C---.- 

$70 
IOCYL 


ENA 
RTJ* 


3 
ORE090 


ADC 
NUM 
- NUM 
LOQ- 
RTJ* 


FN02-1 

♦ 

$1008 

BIT07 
IOCYL 


CLR 
STQ* 


Q 
DRT013 


LDA+ 


ORT006 


AND- 

SAN 
STQ* 
ENQ 
STQi- 


BIT14 — 

SE837 

ST813 

- 1 -- 

DRT014 


LOA*- 
INA 
STA» 
RTJ* - 


- ST801 
1 

ST806 
DRE170 


LOA» 
STA*- 


ST811 

- ■- RECK01 - 


LDA 


=XRDBUF-1 


STA- 
CLR 

-too* — 

RTJ* 


I 

A 

-ST810 - 

SE700 



FUNCTION SET UP 
FCA VALUE 

»•• ERROR 6X •»•• 
•»»» LOAD READ FCA VALUE »•»♦ 



SET STATUS 1 
VALUE 



FUNCTION SET UP 
ICA VALUE 



»»• ERROR 7X *»* 
•••» LOAD READ ICA VALUE »♦»» 



FUNCTION 
ISA VALUE 

••». ERROR 8X ♦•» 
»*»* LOAD READ ISA VALUE ♦»•» 



CLEAR EARLY EXIT 



00 NOT CHECK DATA FOR 
READ ONLY 



SET REAO SWITCH 

GET FCA+1 FOR LAST 
RECHECK STATUS 

SET INT SH IF REQUESTED 

CHANGE ST1 MASK 



CLEAR THE REAO 
BUFFER 



02553 
02554 
02555 
02556 
02557 

02558 
02559 

02560 
02561 

02562 
02563 
02564 
02565 
02566 

02567 
02568 

02569 
02570 
02571 
02572 
02573 

02574 
02575 

02576 

02577 
02578 
02579 
02580 
02581 

02582 
02583 
02564 
02585 

02586 
02567 

02588 

02589 
02590 
02591- 
02592 



r 
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DATE* 10/20/7* 



259 J P0AE3 5*00 

POAE* 0B0O P 
-259* P0AE5 £000 - -'■■- - - ■■■■- 
P0AE6 0090 

2595 P0AE7 5*00 

--P0AE8 00E8 R- — 

2596 P0AE9 5*00 
POAE A 0297 P 

-2597-P0AE8 582* 

2598 POAEC C8B1 

2599 POAED 6*00 
PQAEE 0166 P 

2600 POAEF C817 

2601 POAFO 6*00 

„ .— -PQAFi 0OF2 P 

2602 P0AF2 C*00 
P0AF3 0025 P 

-2603 P0AF«i- A078 - 
260% P0AF5 0112 

2605 P0AF6 1*00 

:i_^ -^-J>&AF7~«9E9 P- - — - 

2606 • 

2607 P0AF8 E816 SE845 
.260* PQAF9 COQO ....._... 

POAFA OAAB P 

2609 P0AF8 5*00 

„ __;,po afc ozs& p - - - 

2610 POAFO 0AC3 P 

2611 POAFE 1*00 

- POAFF 09E9 P 



RTJ+ 
LBQ 
RTJ+ 
RTJ* 

RTJ* 

LDA» 
STA* 

LDA* 
STA+ 

LDA* 

-AND- 
SAN 
JMP* 



LOQ» 
10 A 

RTJ* 

ADC 
JMP+ 



SE630 

=N$90 

IOCYL 

ORE*00 

SE8*0 
ST812 

RECK01 

ST805 
CKST02 

ORT006 

-BIT 13 
SE8*5 
SECTS 



ST810 
=XSE835 

ORE300 

ST80*-i 
SECT8 



SET RECHECK STATUS. 

•••ERROR 9X •■*••■ 

•»•• INITIATE READ •••• 

ALARM (ERREORI CHECK 

SET FN AND EARLY EXIT 

RESTORE ST1 MASK 

SET ST1 VALUE 
FOR REPEAT 



DATA CHECK REQUEST 
YES-SKIP 
NO-RESTART 

RE-ENTER PARAMETER CHECK 
DATA LENGTH TO 
REPEAT ADDRESS 



DATA CHECK 

LAST TRACK AODR 
GO RE-START 



••• ERROR AF »•• 



02593 

0259* 

02595 

02596 

02597 
02598 
02599 

02600 
02601 

02602 

02603 
0260* 
02605 

02606 
02607 
02608 

02609 

02610 
02611 



-2613 POBOO 
261<i P0B01 

2615 POB02 
_. .J>0BO3- 

2616 POBO* 

2617 POBO 5 
-261 8i-P 0806 

2619 P0BO7 

2620 P0B08 
-262i-POB09_ 

2622 POBO A 

2623 POBOB 
-262U\paB0C- 

2625 POBOO 



0000 -SE830- 

0A09 

5<»00 

0218 P- ...... T 

019A P 

0B7F 

(JOOO -LST805- 

FFFF 

0000 ST806 

41000 ST813-- 

0000 ST81* 

FFEO 

8008-— ST802-^ 

1CF2 



wn. 

EN A 
RTJ+ 

ADC *: 

NUM 
-NUN^ 

NUM 

AOC 
■MUM.. 

NUM 

NUM 
-NUM-- 

JMP* 



9 
ORE090 

RECK11-1 
S0B7F 

.* „...__. . 

SFFFF 




$FFEO 



ISE8301 











RECHECK STATUS 


SET 


UP 


ST1 


MASK 






.-•■—. 


VALUE — 




.... 


ST3 


M 
V 






_ ST* 


M. - 

V 







ST2 


M 








V ■-■---: 







02613 
0261* 
02615 

02616 
02617 
02618 
02619 
02620 
02621 
02622 
02623 
0262* 
02625 



2627 POBO£ 0000 ST810 



NUM 



DATA TRANSFER LENGTH 



02627 



c 



2629 POBOF 0000 

2630 P0810 0A01 



SE8**0 



NUM 
EN A 



SET EARLY EXIT 



02629 
02630 
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DATE* 10/20^74 



- 2631 


POBli 


6400 




P0B12 


01B0 P 


--—2*32 


PAB13 


0844~- 


2633 


P0B14 


6400 




P0B15 


01B1 P 


*"*T-r£63%-P«Bt6- 


1GF8 


2635 


ptiBir 


OOOA 


2636 P0B18 


2049 

"4C4C— 




rTTBl."3 




P0B1A 


4547 




P0B18 


41 4C 


— 


R0B1G 


285% 




P0B1O 


5241 




POBIE 
-POB1F 


4E53 

WW 






P0B20 


5220 




P0B21 


4C45 

-4E47 

5448 




P0B23 


2637 


P0B24 


2040 


P0B26 5420 




P0B27 


I*2k5 


— , 


-P0B26 


2031 - 




P0B29 


2043 




P0B2A 


3030 


-26-36 


-POBEB 


flOOA - 



ST816 



STA* 

GLR 
STA* 

JMP* 

NUM 

ALF 



DRT013 



ORT014 



SET FN SWITCH 



«SE840> 

$ODOA 

12, ILLEGAL TRANSFER LENGTH 



02631 

02632 
02633 

02634 
02635 
02636 



ALF 



07, HUST BE 1-C00 



02637 



ST817 



NUM 



SODOA 



02638 



c 
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2640 






2641 






2642 -■-- 






2643 






Zbkk 






2645 






2646 






2647 






2648 - 






2649 






2650 






2651 






2652 






2653 






2654 






2655 






2656 






2657 






2658 






2659 






-2660 






2661 






2662 






2664 P0B2C 


C400 




P0B2D 


0020 


P- 


2665 P032E 


0111 




2666 P0B2F 


181A 




-2667 P0B30 


0A03 




2668 P0831 


5400 




P0B32 


0218 


P 


- 2669 P0B33 


0179 


P 


2670 P0B34 


0B7F 




2671 P0B35 


0003 




-2672- P0B36 


0.A09 




2673 P0B37 


6400 




P0B38 


0006 


P 


2674-P0B39 


0A1B 




2675 P0B3A 


6400 




P0B3B 


00E5 


P 


2676 PQ83C 


0A02 


.. 


2677 P0B3O 


6400 




P0B3E 


0OE7 


P 


— 267-8-P0B3F 


-0A03 




2679 P0B40 


5<>00 




P0B41 


0218 


P 


..__.268I1~RQB42 


-010A--P 


2681 P0B43 


0008 




2682 PQB44 


1001 




_~2683-P&B45~J)C10- 




2684 P0B46 


5400 




P0B47 


OOEB 


P 



********* ******************** **************** ****** ********** ********** 



AUTO 
1. 
2. 
3. 
<f. 
5. 

6. 
7. 
8. 

9. 
10. 

11. 



12, 



SECTION 9 
LOAD AND PROGRAM PROTECT TEST 
WRITE AUTO LOAD HITH MONITOR 0-5FF. 
CLEAR 0-5FF. 

AUTO LOAD AND CHECK DATA. 

SET PP SWITCH ON DRUM AND 17X4. CLEAR SLS KEY. 
LOAD FCA/ICA REGISTERS, VERIFY REPLY TO PROTECTEO 
OUTPUT INSTRUCTION. 

CLEAR PROTECT BIT, INITIATE READ AND VERIFY EXT. REJ. 
RESET DRUM PP SH. PROTECT REAO 8UFFER. 
READ DRUM WITH NON-PROTECTED OUTPUT INSTRUCTION. 
VERIFY REPLY RESPONSE AND PROTECT FAULT. 
CLEAR CONTROLLER. 

VERIFY NO OSA TRANSFERS HAVE OCCURED USING THE 
DATA CHECK. RELOAD ICA. 

REAO ORUM, VERIFY REPLY TO PROTECTED OUTPUT 
INSTRUCTION. VERIFY CONTROLLER DID NOT MISS 
PROTECT FAULT HITH DATA CHECK. 
RESET 17X4 PP SNITCH. 



*********************************************************************** 



SECT9 



SE905 



LDA+ 



DRT0 02 



SAN 


SE905 


JMP* 


SE910 


- ENA 


3 


RTJ* 


DRE090 


ADC 


RIOi-1 


NUM 


S0B7F 


NUM 


3 


ENA 


9 


STA* 


ST90 


ENA--. 


— • SiO 


STA*- 


DRT203 


- ENA - 


2 


STA* 


DRT205 


ENA 


3 


RTJf 


ORE090 


ADC . 


FN02-1 


NUM 


8 


NUM 


$1001 


ENA ■- 


$10.— 


RTJ+ 


IOCYL 



CHECK FOR INTS 

YES-SKIP 
NO JUMP 



RECOGNIZE INT 

ST1 MASK 
VALUE 
ST1 VALUE AFTER 

LAST TRANSFER 

INT PROCESSOR 
VALUE 

DISABLE INTS AFTER 
WRITE 



FUNCTION SET UP 
EOP CODE 

•»♦ ERROR IX »♦» 

•»♦» ENABLE EOP INT ♦»»» 



02640 
02641 
02642 
02643 
0264* 
02645 
02646 
02647 
02648 
02649 
02650 
02651 
02652 
02653 
02654 
02655 
02656 
02657 
02658 
02659 
02660 
02661 
02662 



02664 

02665 
02666 
02667 
02668 

02669 
02670 
02671 
02672 
02673 

02674 
02675 

02676 
02677 

02678 
02679 

02680 
02681 
02682 
02683 
02684 
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o 



( \ 



r 



ORMP80 



2685 


P0B48 


1804 




2686 


P0B49 


0C19 




2687 


P0B4A 


4400 






P0B43 


0006 


P 


2688 


P0B«»C 


0C19 




~ r 2689 


-PQB40 


4400 






PQ84E 


0CA0 


P 


2690 


P0B«»F 


0A10 




-2691 


POB50 


6400 






P0B51 


0BF4 


P 


2692 


P0352 


0A03 




2693 


P0B53 


5400 






P0354 


0218 


P 


2694 


P0B55 


010A 


P 


- 2695 


PQB56 


210D 


P 


2696 


P0357 


100E 




2697 


P0B58 


0C20 




-2698- 


P0B59 


5400 






P0B5A 


OOEB 


P 


2699 


P085B 


0A03 




— 2700 


P0B5C-S400 






P085O 


0218 


P 


2701 


P0B5E 


010A 


p 


2702 


P0B5F 


180E 


P 


2703 


P0360 


looc 




2701* 


P0B61 


OC30 




2705 


P0B62 


5«fOO 






P0B63 


OOEB 


P 


2706 


P0B64 


0A03 




2707 


P0B65 


5400 






P0B66 


0218 


P 


2708 


P0B67 


010A 


P 


-2709 


P0B68: 


OfllF ; 




2710 


P0B69 


1008 




2711 


P0B6A 


0A03 




2712 


P0B6B 


5400 






P0B6C 


0218 


P 


2713 


P0B6O 


016B 


P 


271 4 


P0B6E 


FFEO 


'■■-. 


2715 


P0B6F 


0000 




2716 


P0870 


0C40 




r-- V 2717~ 


P0B71 


5400 






P0B72 


OOEB 


P 


2718 


P0B73 


OAFE 




-2719 


P0B74 


EOOO 






P0B75 


1B0O 


P 


2720 


P0B76 


5400 




— — '■ 


P0B77 


0CE2 


-P 


2721 


P0378 


OA03 




2722 


P0B79 


6400 




---■■---—•■ 


P087A 


0167 


P 


2723 


P0B73 


0A03 




272«» 


P0B7C 


5400 






P0B7O 


0218- 


P 


■ .. 


-60412800—-D 



SE910 



SE915 
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71 


JMP* 

ENQ 

STQf 


SE915 

$19 

ST900 


ENQ 
STQ+ 


$19 
ST919 


ENA 
STA* 


$10 
ST920 


ENA 
RTJ+ 


3 

ORE090 


AOC 
AOC 
NUM 
ENQ 
RTJ+ 


FN02-1 

WRBUFf$5FF 

$100E 

$20 

IOCYL 


ENA 
RTJ+ 


3 
DREO90 


AOC 
AOC 
NUH 
ENQ 
RTJf 


FN02-1 

WRBUF 

$100C 

$30 

IOCYL 


ENA 
RTJ+ 


3 

DREQ90 


AOC 
NUM 
NUH 
ENA 
RTJ* 


FN 02-1 
S1F ■• 
$1008 
3 
ORE090 


AOC 
NUM 
NUM 
ENQ 
RTJ* 


. RECK07-1 
' $FFE0 



$lfO 

IOCYL 


ENA 
LOQ 


."-i'V 
• =XWRBUF-1 


RTJ* 


SE960 


ENA 
STA+ 


'■': 3 ■ 

RECK02 


ENA 
RTJ+ 


3 
ORE090 



DATE* 10/20/74 



ST1 (NO INT) AFTER 
LAST TRANSFER 


02685 
02686 
02687 


LAST RECK12 VALUE IST1I . 


02688 
02689 


AOO TO CKST ST1 VALUE 


02690 
02691 




02692 
02693 


FUNCTION 
FCA VALUE 

»•» ERROR 2X •»• 
■•»»• LOAO FCA REGISTER »*»» 


02694 
02695 
02696 
02697 
02698 




02699 
02700 


FUNCTION SET UP 
ICA VALUE 

*»»■ ERROR 3X ••• 
*»*» LOAD ICA REGISTER »**» 


02701 
02702 
02703 
02704 
02705 




02706 
02707 


FUNCTION SET UP 
ISA VALUE 


02708 
02709 
02710 
02711 
02712 


RECHECK STATUS 
ST2 MASK 
VALUE 

»** ERROR 4X ••» 
»»»• LOAO ISA REGISTER ♦»♦* 


02713 
02714 
02715 
02716 
02717 




02718 
02719 


HOVE 0-5FF TO WRBUF 


.02720 


ST1 VALUE AFTER START WRITE 


02721 
02722 


.... , ... 


02723 
02724 
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2725 

2726 

-2727 

2728 
2729 

2730 

2731 

-2732 

2713 

2734 

2735 
2736 

2737 
2738 

2739 

2740 
2741 

27«»2 

2743 

274*» 

27«»5 
2746 

2747 
2748 
271*9 
2750 
.2751 

2752 

-27-53.. 

2754 
-2755 
2756 
2757 
.2758 
2759 
2760 

2761 
2762 



P0B7E 
P087F 
POB88 
P0B81 
P0B82 
POB83 
P038«* 
P0985 
P0886 
P0B87 
P0B88 
P0889 
P0B8A 
P0B89 
P0B8C 
P088n 
P0B8E 
P0B8F 
P0890 
P0B91 
P0B92 
P0B93 
P0B94 
P0B95 
P0B96 
P0B97 
P0B98 
P0899 
P0B9A 
P0B9B 
P0B9C 
POB90 
P0B9E 
P0B9F 
POBAO 
P0BA1 
P0BA2 
P0BA3 
P0BA4 
P0BA5 
P08A6 
J»QBA7 
P0BA8 
P0BA9 
PQBAA 
P0BA8 
POBAC 
POBAD 
POBAE 
POBAF 
P0B80 
POBBi 
P0BB2 



00F6 
FFEO 
0000 
0A03 

54on 

0218 

018O 

0B7F 

0003 

CO 00 

210E 

5400 

OCFF 

0A02 

6400 

01B1 

08M* 

640 

01B0 

5400 

0213 

0C50 

5400 

OOEB 

5400 

OBOF 

£400 

0O06 

M»00 

0OF2 

OCOE 

COOO 

OOOF 

5408 

OAFE 

60FF 

084«t 

EOOO 

0600 

5400 

0904 

E80Q 

OFBC 

0F22 

0AJ)3 

08B2 

CAOB 

6803 

0C6V 

COOO 

7FFF 

09FE 

0101 



SE935 



SF938 



SE932 



PAGE 


72 1 


ADC 
NUM 
NUM 
ENA 
RTJ«- 


CKST07-1 

SFFEO 



3 

DRE090 


ADC 
NUM 
NUM 
LOA 


MNTR01-1 

$DB7F 

3 

=XWR3UF+$600 


RTJf 


SE985 


ENA 
STA* 


2 
ORT014 


CLR 
STA* 


A 
DRT013 


RTJ* 


ORE170 


ENQ 
RTJf- 


$50 
IOCYL 


RTJf 


SE840 


LOQ* 


ST900 


STQ* 


CKST02 


ENO 
LDA 


ST907-ST904+1 
=XST90«» 


RTJ- 

ENA 

STA- 

CL<? 

LOO 


(TYPEOUT) 
-1 

I . 

A 

=NS6Q0 


RTJ+ 


SE70 


LDQ 


WRBUF+SMMCNT 


ORS 

ENA 

LAQ 

LDA* 

STA* 

ENQ 

LDA 


2 . 

; 3 ... 

Q 

SE939.Q 

SE938H 

100 

=N*7FFF 


IN A 
SAZ 


-1 
SE93% 



DATE! 10/20/7«» 



CHECK STATUS 
ST2 MASK 
VALUE 



MONITOR STATUS 
ST1 MASK 
VALUE 



SET UP RECK11-18 
SET WRITE SH 

CLEAR EARLY EXIT 

SET OR CLEAR INT SH 

•»» ERROR 5X ♦»• 
**»» WRITE AUTO LOAO AREA »»*» 

SET FN AND EARLY EXIT 

GET LAST ST1 VALUE 

FOR NEXT I/O CYCLE 



AUTO LOAO MSG 



CLEAR CORE FROM 
0-5FF 



*»» SMM PARAMETER WORO 

*♦* TO GET 
*»* COMPUTER 
••» SPEED 
»*» SPEED FACTOR 
*** TO DELAY 



WAIT 



10 
SECONOS 



02725 
02726 
02727 
02728 
02729 

02730 
02731 
02732 
02733 

02734 

02735 
02736 

02737 
02738 

02739 

02740 
02741 

02742 

02743 

02744 

02745 
02746 

02747 
02748 
02749 
02750 
02751 

02752 

02753 

02754 
02755 
02756 
02757 
02758 
02759 
02760 

02761 
02762 



60<fl2800 
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73 


DATE* 10/20/74 




2763 P0BB3 18FD 




JHP* 


SE932 




02763 


2764 P0B84 ODFE 


SE934 


INQ 


-1 




02764 


~— ~ 2765-POBB5 MW 




SQZ 


SE936 




02765 


2766 P0BB6 18F8 




JMP» 


SE938 




02766 


2767 P0BB7 3B2F 


SF939 


NUM 


15151 


»** FACTOR FOR 1.1 USEC 


02767 


2768- P0BB8 2710 




NUM 


10000 


■•»• 1.5 USEC 


02768 


2769 P0BB9 4738 




NUM 


18235 


••• 0.9 USEC 


02769 


2770 P08BA 6BEE 




NUM 


27630 


»»* 0.6 USEC 


02770 


2771--P0BBB EOOfl 


SE936 " 


- LOQ - 


■- -N$7A0 




02771 


POBBC 7A00 












2772 P0BBO 4400 




STQf 


ST901 




02772 


POBBE QCF1 P 












2773 POBBF OAFE 




EN A 


-1 


CHECK THE DATA AFTER AUTO LOAD 


02773 


277k POBCO 60FF 




STA- 


I 




0277* 


2775-P0BC1 EOOO 




LDQ 


=XWRBUF-1 




02775 


P0BC2 1B0D P 












2776 P0BC3 C101 


SE950 


LOA- 


1»I 




02776 


2777 pob&i* 6400 




STA+ 


ORT017 


ACTUAL FOR ERR MSG 


02777 


P0BC5 0243 P 












2778 P0BC6 B201 




EOR- 


1»Q 




02778 


— -eT-?* P0BC7 0111 - 




SAN 


SE930 




02779 


2780 P0BC8 1817 




JMP* 


SE940 




02760 


2781 P0BC9 C201 


SE930 


LDA- 


1»Q 




02781 


- 2782 POBGA- 6400 




STA+ 


ORT018 


EXPECTED OATA 


02762 


POBCB 0244 P 












2783 POBCC 08«»4 




CLR 


A 




02783 


— 2784 P09CD 6400 




STA+ 


ORT019 


READ BUFFER ADDRESS 


02784 


POBCE 0245 P 












2785 POBCF 6400 




STAf 


ORT022 


TRACK ADORESS 


02785 


POBOO 0246 P 












2786 P0BD1 0D01 




INQ 


1 




02786 


2787 P0BO2 4400 




STQ* 


ORT020 


ADORESS OF ERROR 


02787 


"■- POB03 0246 P 












2788 POB04 COOO 




LDA 


=XWRBUF-i 




02788 


P0BD5 1B0D P 












— -2789 P0806 OGFE 




ENQ 


-1 




02769 


2790 P0BO7 5400 




RTJ* 


SE960 


MOVE WRBUF TO 0-5FF 


02790 


P0BD8 0CE2 P 












■—- - 2791: P0A09 0A30 


_.. 


- €NA 


$30 - 




02791 


2792 POBDA 0C60 




ENQ 


$60 


*•» ERROR 6F •♦• 


02792 


2793 POBDB 5400 




RTJ* 


DRE100 


REPORT OATA ERROR 


02793 


....._ r _^_-POflOG 022C P 


• - 


- 








2794 POBDD 0B9C P 




ADC 


SE935 




02794 


2795 POBOE 18 07 




JMP* 


SE945 


CONTINUE 


02795 


--■ — 2796--P08DF~OB01 ■•--■- 


-SE940 •- 


INQ 


1 




02796 


2797 POBEO O40Q 




RAO* 


ST901 




02797 


P0BE1 0CF1 P 












- — 3798- P BE-2- GO FF -. - 


--• •— 


RAO- 


I 




02798 


2799 P0BE3 01A1 




SOV 


SE945 


SKIP AFTER LAST 


02799 


2800 P0BE4 18DE 




JMP* 


SE950 




02800 


•— -2891- P09E5 0C1F 


5E945- 


FNQ 


ST908-ST907+1 


- 


02881 
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DATE: 10/20/74 



2803 



BEGIN PROTECT TEST 



02803 



2805 


P0BE6 


COOO 






P0BE7 


0O1C 


P 


2806 


PQBES 


5408 




2807 


P0BE9 


5417 




2808 


POBEA 


3A98 




2809 


POBEB 


EOOO 






P08EC 


OBFF 




2810 


POBED 


5400 






POBEE 


0CF3 


P 


2811 


POBEF 


COOO 




2812 


POBFO 


0089 




.2813 


P0BF1 


6400 






P0BF2 


0167 


P 


2814 


P0BF3 


8000 




.... 2815 


P0BF4 


0000 




2816 


P0BF5 


6400 






P0BF6 


0OF2 


P 


2817 


P03F7 


0A03 




2818 


POBFS 


5400 






P0BF9 


0218 


P 


.-.. 2815 


POBFA 


010A 


P 


2820 


POBFB 


1500 


P 


2821 


POBFC 


100E 




- -2822 


POBFD 


0C7O 




2823 


POBFE 


5400 






POBFF 


OOEB 


P 


-2*24 


POCOO 


C8EF 




2825 


P0C01 


6400 






P0C02 


0OF2 


P 


2826 


P0C03 


0A03 




2827 


POC04 


5400 






POC05 


0218 


P 


__282«- 


POC06 


010A 


P 


2829 


P0C07 


OFOE 


P 


2830 


P0C08 


100C 




... 2831 


P-0C09 


£072 




2832 


POCOA 


5400 






POCOB 


OOEB 


P 


-"-.2*33 


POC0C--C0OO 


..... 




POCOO 


7A00 




2834 


POCOE 


60FF 




..-2835- 


-P-OC-OF 


-£000 






P0C10 


1B0O 


P 


2836 


P0C11 


C2 01 




. 2837 


P0C12 


0864 




2838 


P0C13 


6201 




2839 


POCli* 


0O01 





SE965 



ST918 



ST920 



SE955 



LOA 

RTJ- 
RTJ- 
NUM 
LOQ 

RTJt 

LOA- 

NUM 

STA* 

ADD- 
NUM 
ST A* 

ENA 
RTJf 

ADC 
AOC 
NUM 
ENQ 
RTJt 

LOA* 
STA+ 

ENA 
RTJf 

AOC 

AOC 

NUM 

LDQ- 

RTJf 

LOA 

STA- 
LDQ 

LOA- 
TCA 

STA- 
INQ 



-XST907 

ctypfout) 

(FIXDLY) 

15000 
=N$DBFF 

SE980 



$0089 

RECK02 



CKST02 

3 

DRE090 

FN02-1 

RD8UFH535 

$100E 

$70 

I0CYL 

ST918 

CKST02 

3 

ORE090 

FN02-1 

RDBUF 

S100C 

BIT07 

TOCYL 

=NS7A0fl 



= XHRBUF-1 

1*Q 

.A-.- ..... ... 

1»Q 
1 



17X4/DRUM PP MSG 
WAIT 15 SECONDS 

CMILLISEC) 
CHANGE ALL STATUS 1 MASKS 



ST1 VALUE AFTER I/O 



CHECK STATUS 1 VALUE 



FUNCTION SET UP 

FCA VALUE C16 SECTORS) 

••»■ ERROR 7X **< 
»*»* LOAD FCA REGISTER *»»* 



ST1 VALUE BEFORE I/O 



FUNCTION SET UP 
ICA VALUE 

*»* ERROR 8X »•» 
»*♦* LOAD ICA REGISTER ***» 

COMPLIMENT WR8UF TO HRBUF 



THIS DATA HILL BE USED 

LATER TO VERIFY NO 
PROTECT FAULTS 
DURING PROTECTED READ 



02805 

02806 

02807 
02808 
02809 

02810 

02811 
02812 
02813 

02814 
02815 
02816 

02817 
02818 

02819 
02820 
02821 
02822 
02823 

02824 
02825 

02826 
02827 

02828 
02829 
02630 
02831 
02832 

02833 

02834 
02835 

02836 
02837 
02838 
02839 



c 
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' ~\ 



r"\ 



o 



O 'O O O O O ( 



o o 



o 



O O'O *o 






ORHP80 



28*0 P0C15 DOFF 
28*1 P0C16 01A1 
~— _6*2 ^»0C1?-18F9 
28*3 P0C18 E000 5 
P0C19 0F0O P 
— eW^--P8(HA -6080 .—-:■: 
POClB 1B0D P 
28*5 P0C1C 5*00 

- — -- — pocifl-oeez- p- 

28*6 P0C1E C000 
P0C1F 010* 

- 28*7 HPOC28-6*0O - 

P0C21 011A P 
28*8 P0C22 08** 

- - ~28*9~P8C_ 3-~6*80 

P0C2* 01B0 P 
2850 P0C25 0A01 

— 285_-P8C26-6*8B~ 

P0C27 OlBl P 
2852 P0C28 C8C7 
~**53HP8029 6*80 - - 
P0C2A 00F2 P 
285* P0C2B 08*2 
-2855 PQG2C **00- - 
P0C2O 0166 P 

2856 P0C2E **D0 

- -- — HP0C2F- 818E--P 

2857 P0C3O **00 
P0C31 019B P 

— 2858 P0C32 **00 

P0C33 0190 P 

2859 P0G3* £000 

~ P0C35-8898- — 

2860 P0C36 5*00 
P0C37 OOEB P 

— 2861 P 0638 -5*18- - 
2862 PQC39 OFOE P 
2663 P063A 0600 



"286*"P063B- 8G8F 



t. 



2865 P0G3C COOO 

POC30 0D5A P 
•— 2666~P063E-5*88- - 

2867 P0C3F 5*17 

2868 POC*0 3A98 
--— 28&9-POG*i~C00B 

P0C*2 200* 

2870 P0CU3 6*00 

— --— ^8C**--81_AtP- 

2871 PQC*5 0A09 

2872 P0C*6 6*00 
.____. .: —hPo^^-^hj jcg. p 

2873 P0C«»8 0A09 
287* P0C*9 5*00 

_____ __ ...POC^A- 0218 P 
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75 DATE! 


10/20/7* 






RAO- 


I 




02 8 4M) 




SOV 


SE957 




026%1 


„• 


- JMP* *■ 


- SE955 




028*2 


E957 


LDQ 


=XRDBUF-i 


MOVE OATA TO 


028*3 


■ -;-7-~ : 


LOft 


=XWRBUF-1 


TO REAO BUFFER 


028** 




RTJ«- 


SE960 


FOR COHPARE 


028*5 




LDA 


=N$010* 


EXPECT REJ RESPONSE 


028*6 




STA«- 


ROO* 


FROM REAO 


828*7 




GLR 


A 


CLEAR EARLY EXIT SH 


028*8 


'■•■ ' 


STA* 


ORT013 




028*9 




ENA 


1 




02850 




STA+ 


ORT01* 


SET RD SWITCH 


02851 




LDA» 


ST918 


ST1 EXPECTED VALUE 


02852 


^ 


STA* 


CKST02 




02853 




CLR 


Q 


STATUS HILL NOT BE COPIED 


0285* 


■ -•:•— — 


STG+ 


RECK01, 


DUE TO EXT REJ 


02855 




STQ* 


MNTR01 




02856 




STQ* 


RECK11 




02857 


; " •••—;■ 


STQ>~ 


RECK13 . 




02858 




LOO. 


=N$90 


■•*• ERROR 9X ♦»* 


02659 




RTJt 


IOCYL 


•»•• READ EXPECT EXT REJ •»»• 


02860 


. ..__.. 


RTJ- ■■■■- 


ISETPPI 


SET PROTECT BITS 


02861 




ADC 


ROBUF 


IN READ BUFFER 


02862 




NUM 


1536 




02863 


[ • ~~ 


-ENQ 


-ST915-ST91**! 





0286* 




LOA 


=XST9i* 




02865 


., 


RTJ- - 


ITYPEQUTr 


- CLEAR ORUH PROTECT 


02866 




RTJ- 


IFIXDLY) 


WAIT 15 SECONDS 


02867 




NUM 


15000 


(HILLISEC) 


02868 


'" — 


IB A 


- — -_n$2 «n - - 


RESTORE THE RESPONSE CODE 


02869 




STA* 


RDO* 




02870 




ENA 


9 




02871 




■STA* 


GKST02 


NEH CHECK STATUS VALUE 


02872 




ENA 


9 




02873 





RTJ+ 


ORE090 


- - - ■ 


0287* 
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OATEI 10/20/7*1 



2875 P0C4B 019A P ADC 

2876 P0C4C DFEF ST913 NUM 
~~287-7~P0C%0- 0221 ~ -NUM 

2878 P0C<tE FFFF NUM 

2879 P0C4F OFOF P ADC 
— 2880-POC50 OQQ**- BZS 

2881 P0C5V E8F7 LOQ* 

2882 P0C55 4400 STQ+ 
.....,_ P0G56-01HE- P 

2883 P0C57 EOOO LOQ 
P0C58 OOAO 

2884 P0C59 5400 RTJ+ 
P0C5A OOEB P 

2885 P0C5B 5400 RTJ+ 
P0G5G OBOF P - ' 

2886 P0C5D 0A03 ENA 

2887 P0C5E 5*00 RTJ* 
P0C5F 0218 P 

2888 P0C60 010A P ADC 

2889 P0C61 0001 NUM 
-2890P0C62 1001 NUM 

2891 P0C63 COOO LOA 

P0C64 0231 

-_ 289.2. PJJC65 6400 STA+ 

P0C66 00F2 P 

2893 P0C67 C8E4 LDA* 

2894 P0C68 £400 STA* 
P0C69 0166 P 

2895 P0C6A 0A09 ENA 

2896 P0G6B 6400 STA* 
P0C6C 0167 P 

2897 P0C6O EOOO LOQ 
._ — POC6E 0O8O 

2898 P0C6F 5400 RTJ* 
P0C70 OOEB P 

-_ 2Aa9..eaC71-EB68 --LDQ» 

2900 P0C72 COOO LDA 

PQC73 OBEB P 
:.-2901 P8C74- 5400 1- — -.-.- - iJRT^J* 

P0C75 0256 P 

2902 P0C76 028B P ADC 

._ 2903. .BOC77. 0104 - _ SAZ-. 

2904 P0C78 0C25 ENQ 

2905 POC79 COOO LOA 
-P0£7A.0O69 P~ - 

2906 P0C78 5408 RTJ- 

2907 P0C7C OA03 SE970 ENA 
29D8..PQC70 3400 RTJ* 

P0C7E 0218 P 
2909 P0C7F 010A P ADC 
2910. P0C8O- OFOE-P- -__ - AOC 

2911 P0C81 100C NUM 

2912 P0C82 0A09 ENA 



RECK11-1 

SDFEF 

JO 221 

$FFFF 

RDBUF+1 

C4> 

ST 91 3 

MNTROl 

=N$A0 

IOCYL 

SE84Q 

3 

ORE090 

FN02-1 
1 

tlOOl 
=N$231 

CKST02 

ST913 
RECK01 

9 
RECK02 

=N$BO 

IOCYL 

ST 91 2 
=XSE965 

ORE300 - 

DRT304-1 

SE970 

ST917-ST916*! 
-XST916 



(TYPEOUT! 
3 

DRE03Q 

FN02-1 
R08UF ..._.. 
S100C 
9 



2ND RECHECK STATUS 
ST1 MASK 

VALUE 
ST3 MASK 

VALUE 

RESTORE MONITOR STATUS 
MASK 


02875 
02876 
02877 
02878 
02879 
02880 
02881 
02882 


»•• ERROR AX ••• 


02883 


»••» REAO EXPECT FAULT •»»• 


02884 


SET FN AND EARLY EXIT 


02885 




02886 
02887 


FUNCTION SET UP 
CLEAR CODE 

RR/DD 
CHECK STATUS 1 — NO INT 


02888 
02889 
02890 
02891 





02892 


RESTORE THE MASK 


02893 
0289% 


STi AFTER CLR CONT. 


02895 
02896 


••• ERROR BX »•» 


02897 


♦»♦* CLEAR CONTROLLER »*»» 


02898 


LENGTH 

REPEAT ADDRESS 


02899 
02900 


COMPARE THE DATA 


02901 


LAST TRACK ADDR 
NO ERROR -SKIP 


02902 
02903 
0290% 
02905 


DATA READ DURING FORCED PF 


02906 

02907 

.02908 


FUNCTION SET UP 

- .ICA. VALUE . - - - 


02909 
02910 
02911 
02912 
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c 



DRMP80 



i- ■'-■■■■ 2913 P0C83 6V00 

P0C8ft 00F2 P 

~--2^tft"-P0C85 6ft00 

P0C86 0167 P 

2915 P0CB7 EOOO 

?—■:— -T-"P0€r88HDB7F- 

2916 P0C89 586A 

2917 P0C8A EOOO 

— -— — — P9C8B~O0e& 

2918 P0C8C 5ftOO 
P0C8D 00E8 P 

.- 2919 P0C8E 08ftft 
2920 P0C8F 6ft00 

P0C90 01B0 P 
— ~~£92±~P0C91 "6ft00 

P0C92 0O58 P 

2922 P0C93 6ft00 

_ — - P0G9ft -0123 P 

2923 » 
292ft P0C95 OA02 

—— 2925- W)C96-6ft00" 

P0C97 0191 P 

2926 P0C98 COOO 
--—-: — -P0G99 200ft - 

2927 PQC9A 6ft00 
P0C9B 0128 P 

.:... — 2-92$;- .- »-- 

2929 » 

2930 P0C9C OA03 
-— -2^31 P8G90 6ftOO 

P0C9E 0167 P 
2932 P0C9F COOO 
1 - i "~2933^P0CAfr -0000 - ST919 
293ft P0CA1 6865 

2935 P0CA2 COOO 

P0GA3 -150E P -■ 

2936 POCAft 585B 

2937 P9CA5 EOOO 

•_—. .f^ftfc-creoo - - 

2938 P0CA7 5ftOO 
P0CA8 OOEB P 

~— 2939-P0GA9 OAOi --- 

29ftO POCAA 6ftOO 

POCAB 0123 P 

^ — 29ftl " : P GAG~- EOOO- — 

POCAO OFOD P 
29ft2 POCAE ftOFF 

—- £9ft3~P0 G AF-GO 7 A 

29ftft POCBO 9000 
P0CB1 0600 

--.-ZJittS-paGBZ -0190- -^ 

29ft6 P0CB3 685E 
29ft7 POCBft EOOO 
^»0GB5 -1B0O-P — .- 
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STA+ 


CKST02 


STA-f 


RECK 02 


LOQ 


=N$DB7F 


RTJ» 
LOQ 


SE980 
=N$CO 


RTJ* 


IOCYL 


CLR 
STA* 


A 
ORT013 


STA+- 


ST922 


STA* 


WR02 


ENA 
ST A* - 


2 
DRTOlft 


LOA 


=N$200ft 


STA+ 


WROft 


ENA 
STA+ 


3 

REGK02 


LOA- 
NUM- 
STA» 

LOA 




- .-- » - - 

ST900 
=XRDBUF+$600 


RT J» 
LDQ 


SE985 
=N$0000 


RTJ* 


IOCYL 


-ENA 

STA+ 


1 • 

HR02 


LOQ— ~ 


-- «XRDBUF-i -- - 


STQ- 

LOA 

SUB 


I 

BIT15-- — 

=N1536 


-SNO--— 
STA* 
LOQ 


fl- - - - 

ST926 
=XWRBUF-1 



DATE! 10/20/7ft 



SET UP NEH MASKS 

•»» ERROR CX *•» 

•••» LOAD ICA REGISTER •••» 

CLEAR EARLY 
EXIT 

INITIALIZE PF ERR MSG 

USE A/Q WRITE •• A/Q READ/WRITE 

»* IS PROTECTED 



THE WRITE CALL IS USEO TO 

PERFORM THE PROTECTED REAO 
ST1 VALUE AFTER START REAO 
ST1 VALUE 



SET UP RECK11-18 

••» ERROR OX »♦» 

»•»• REAO DRUM EXPECT REPLY »•»• 

RESTORE OS A WRITE CALL 
FOR PROTECTED REAO 

COMPARE RO/WR BUFFERS 

EXPECT NO COMPARES 
SET UP 8000-0600 COUNTER 



02913 

0291ft 

02915 

02916 
02917 

02918 

02919 
02920 

02921 

02922 

02923 
0292 ft 
02925 

02926 

02927 

02928 
02929 
02930 
02931 

02932 
02933 
0293ft 
02935 

02936 
02937 



02938 

02939 
02 9ft 

029ftl 

029ft2 
02943 
029ftft 

029ft5 
029ft6 
029ft7 
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ORHP8 






PAS' 


29<»8 P0CB6 C101 




SF992 


LOA- 


29<f9 POCB7 0201 






EOR- 


C ^2954} P0C88 OOFF- 






RAO- 


2951 P0CB9 OOOi 






INQ 


2952 POCBA 010* 






SAZ 


295J P0C88 0856 






RAO* 


295* POCBC 01B1 






SNO 


2955 POCBO 181A 






JMP* 


2956 POCBE 18F7 




SE99* 


JMP* 


2957 POCBF *85i 




SE990 


STQ* 


2958 POCCO CDFF 






LOA- 


2959 P0CC1 68*0 






STA* 


2960 P0CC2 C*00 






LOA+ 


P0CC3 0D58 


P 






2961 POCC* Oil* 






SAN 


2962 P0CC5 0C13 






ENQ 


2963 POCC& CODO 






LDA 


P0CC7 0O3A 


P 






296* P0CC8 5*08 






RTJ- 


2965 P0OG9 C8*5 




SE998 


LDA* 


:: .... 2966 POCCA 5*0A 






RTJ- 


2967 POCCB **f)0 






STQ*- 


POCCC 0O58 


P 






-2968 POCCO 6*00 






STA+ 


POCCE 0059 


P 






2969 POCCF 0C06 






ENQ 


2970 POCOO COOO 






LOA 


P0CO1 0O55 


P 






2971 P0CO2 5*08 






RTJ- 


2972 POC03 C833 






LOA* 


2973 POCD* 60FF 






STA- 


297* P0CD5 E83B 






LDQ* 


2975 P0CD6 18DF 






JMP* 


2976 P0CO7 5*19 




SE996 


RTJ- 


2977 P0CO8 OFOE 


P 




ADC 


2978 P0CO9 0600 




ST912 


NUM 


2979 POCOA 0C10 






ENQ 


2980 POC08 COOO 






LOA 


~ - - POCDC 0D8O 


P 






2981 POCOO 5*08 






RTJ- 


2982 POCDE 5«tl7 






RTJ- 


__ 2983-POCDF 1388 


— . 




NUM 


298V POCEO 5*00 






RTJ+ 


P0CE1 006* 


P 






2986 P0CE2 0000 




SE960 


NUH 


Z987-P0CE3-480.F 






STQ* 


2988 POCE* 60FF 






STA- 


2989 P0CE5 EOOO 






LDQ 


... j-_ - ■— P OCE 6 7 A 00 




',. 




2990 P0CE7 *80A 






STQ* 


2991 P0CE8 E80A 






LOO* 



78 



DATE! 10/20/7* 



1,1 

1»Q 

I 

1 

SE990 

ST926 

SE99* 

SE996 

SE992 

ST925 

I 

ST92* 

ST922 

SE998 

ST921-ST908 

=XST903 

(TYPEOUT) 
ST92* 
(HEXASC) 
ST922 

ST923 

ST9i*-ST92i*l 
=XST921 

(TYPEOUT) 

ST92* 

I 

ST925 

SE992 

(CLRPP) 

RDBUF 

1536 

ST928-ST917+1 

=XST917 

(TYPEOUT) 
(FIXOLY) 
5000 
DRE050 



ST909 

I 

=N$7A00 

ST901 
ST909 



GET READ DATA 
00 THEY COMPARE 
INC THE ADDRESSES 

YES-SKIP FOR PF ERROR 
CHECK FOR LAST 
NO-SKIP 

KEEP CHECKING 



PRINT FULL MSG FOR 1ST TIME 
PROTECT FAULT MSG 



CONVERT THE ADDRESS 



PF AOORESS 
GET THE INDEX 



CLEAR READ BUFFER 
PROTECT BITS 

CLEAR CONSOLE PP 



WAIT FOR OPERATOR TO 

RESET PP 
EXIT 



STORE AODRESS-1 
SET UP TO MOVE 
5FF WORDS 



029*8 
029<»9 
02950 
02951 
02952 
02953 
0295* 
02955 
02956 
02957 
02958 
02959 
02960 

02961 
02962 
02963 

0296* 
02965 
02966 
02967 

02968 

02969 
02970 

02971 
02972 
02973 
0297* 
02975 
02976 
02977 
02978 
02979 
02980 

02981 
02982 
02903 
0298* 



02986 
02987 
02988 
02989 

02990 
02991 
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DATE* 10/20/71* 



2992 P0CE9 C101 SE920 LDA- 1,1 

2993 P0CEA 6201 STA- 1,Q 
?994-P0eE9 0001- - INQ 1 

2995 POCEC DOFF RAO- I 

2996 POCEO D80if RAO* ST901 
•&99?~~P0£E£-"81A1 SO\f - SE925 

2998 POCEF 18F9 JMP* SE920 

2999 POCFO 1CF1 SE925 JMP* <SE960> 
-3000-P0eFl— 0000 -ST901 - HUH- - *- 

3001 P0CF2 0000 ST909 ADC 



FETCH AND STORE 



FINISHED 

YES-SKIP 

NO KEEP MOVING 

EXIT 

800 0-LENGTH 



02992 
02993 
82994 
02995 
02996 
02997 
02998 
02999 
03000 
03001 



3003 
3004 

3005 

-3006, 

3007 

3008 

-3009 



P0CF3 0000 
P0CF4 4400 
-POOF 5 00F1 
P0CF6 4400 
P0CF7 0166 
-P0CF8 4400 
P0CF9 017A 
POCFA 4400 
*»9CF8 018E 
POCFC 4400 
POCFD 019B 
POGFE- 1CF4 



SE980 



NUM 
STQ* 

STQ* 

STQ> 

STQ* 

STQ* 

JMP* 



CKST01 

RECK01 

RI01 

HNTR01 

RECK11 

CSE980I 



CHANGE MASKS 



EXIT 



03003 
03004 

03005 

03006 

03007 

03008 

03009 



— -301-1- 
3012 
3013 

- — 3014 

3015 

— ~30±6 
3017 
3018 

- — -3019 
3020 
3021 

—-^3022= 
3023 
3024 

■, 3425- 

.' 3026 

3027 

^—3020 



t 



POCFF 
POOOO 
P0D01 
P0DQ2 
P0D03 
POD04 
*»0OO5 
P0006 
P0D07 
POD 88 
POO09 
PODOB 
-P0BOG 
PODOD 
PODOE 
-P0D4F- 
P0010 
POOH 
^00*2- 
P0O13 
P0014 
P0B15- 
PQ016 
P0017 
POO 18- 
P0O19 
P001A 

pooia 



0000 

6806 

0A09 

5400 

0218 I 

019A I 

0B7F- 

0000 

FFFF 

0000 - 

0002 

FFEO 

9000- 

1CF1 

0000 

0DOA-- 

0000 

0000 

283t~ 

2E20 

50 52 

4553 

5320 

4155 

544F 

204C 

4F41 

4420 - 



SE985 



ST900 
ST927 



ST924 
-ST9G4 
ST925 
ST926 
ST905 



NUM 
STA* 
ENA 
RTJ+ 

ADC 
NUM 
NUM 
NUM 
ADC 
BZS 
NUM 

-NUM 

JMP* 

NUM 

-HUM- 
NUM 
NUM 

-AtF- 



ST927 

9 

DRE090 

RECKH-1 

50B7F 

* 

JFFFF 



(2) 

$FFEO 

-0--* 

CSE985I 

* 

SOOOA 



RECHECK STATUS (LAST! 
ST1 MASK 

VALUE 
ST3 M 

V 

ST2 M 

■- V 
EXIT 
I TEMP 



TEMP Q 



10, 1, -PtfESS AUTO LOAD 



03011 
03012 
03013 
03014 

03015 
03016 
03017 
03018 
03019 
03020 
03021 
03022 
03023 
03024 
03825 
03026 
03027 
03028 
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DATE* 10/20/7V 



3029 P0O1C ODOA ST907 

3030 POOiO 2032 

— -i poo tg— 2E20- ~ 

P0O1F if34C 

P0D20 i»541 
P-OQ21-522Q 

P0O22 534C 

P0D23 5320 
~ P41024 5357 

P0D25 M5i» 

P0D26 *»348 

3031 P0D27 0O0A 

3032 P0028 2020 
P0O29 2020 

4?0D2A- 5345 - 
P0O2B 5420 
P002G 434F 

P0D2D 4E53 ™ ...... 

P0D2E 4F«»C I'-'.". 
PQD2F 4520 

_ ■. ^. ; j»oo30 ktkEU- ; ^ - - - 

P0D31 *»420 

P0D32 4452 
P.0Q31 554D 

P0O34 2050 

P0035 524F 
___ - P0O36-5445 •-.- 

P0O37 4354 

P0038 2053 
;„ -P.Q039-5720. 

3033 P003A ODOA ST908 

3034 P0D3B 2020 

__ -P0O3C 4453 — 

P0D3D M2Q 

P0D3E 5052 
P0IT3E. 4E5.4 



NUM $0O0A 

ALF 10, 2. CLEAR SLS SWITCH 



03029 
03030 



NUM $OD0A 

ALF 18, SET CONSOLE AND DRUM PROTECT SW 



03031 
03032 



NUN S0O0A 

ALF 12, OSA PROTECT FAULT NOT 



03033 
03034 



t 



P0O40 4543 
PO041 5420 
-^ ■•;-., — -P-0D42 4641- 
P0D43 554C 
P0D44 5420 

-B0O45--4E4F. 

?...'■ if P0O«»6 5420 

3035 P0O47 ODOA 

L^ 3036- POP4&.2fl20 

P0O49 Mi45 

P0O4A 5445 

ULDL4BL.&35.4-. 

P004C «>544 

P0D4D 2042 

iP-JOAE 5920 

P0O4F 434F 

P0O50 «fE54 

„PJ)05L324F. 



-60412800. 



-SJ929 



NUN J0O0A 

ALE 42 ,-:J)EIECT£a,.BY CONTROLLER 



03035 
O3036 
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DATEl 10/20/74 



P0D52 4C4C 
PQD53 4552 
~ 30 37 P0B54~8O0A- -- 

3038 P0055 2020 
P0D56 2020 

^~--rrr---P0D57-5fl3D - 

3039 P0D58 0000 

3040 P0D59 0000 

~ -304i~P0D5A ^O0A - 

3042 P0D5B 2033 
P0D5C 2E20 

— - POD50 434C 
P0D5E 4541 
P0D5F 5220 

^-— ~P006fr"4452- - 
P0D61 5540 
P0D62 2050 

— -P0D63 -524F : 

P0O64 5445 
P0O65 435% 

— ~pftD6fr -2053 - 

P0D67 5720 

3043 P0068 0O0A 

— 3044 PQ069 ODOA ■— - 

3045 P006A 2020 

P0068 4350 

- -P0O&C-5520 --■ 

P006D 53<»8 

P006E 4F55 

_._. — _poo6F 4C44 
P0O70 20 4E 
P0D71 4F5«* 

^--~^~- ^POD72-20 48- - 
P0D73 4156 
P0D74 4520 

— — :-- P0O75-4143-- 
P0O76 4345 
P0077 5054 

— P807a-4544—- 
P0079 2044 
P007A 5341 

__34ji f ^_P007&-000 Ar— 
3047 PQD7C 2020 
P0D7D 4441 

''-■"■ ' '--P' 0O7E 5441 - ~- 
P0O7F 2044 
P0D80 5552 

-__— - P0384- 494E- - 
P0O82 4720 
P0D83 464F 

-~~~— -P0D&4-5243- - 
P0D85 4544 
P0O86 2050 

_ P008 7- 524F — 



ST921 



ST922 
ST923 
ST914- 



NUtt 
ALF 



NUH 
NUM 
HUM 
ALF 



lOBOA— ■-- 
3, P= 



PROTECT FAULT 
ADDRESS 



* 

SQD8A ;-•"-'■'-:'■■•.•- ■■■■-■'■■ ■-...■.■■.....:•...■ 

13, 3. CLEAR ORUM PROTECT SW 



03037 
03038 



03039 
03040 
03041 
03042 



ST915 
ST91.6 



NUH $0O0A 

NUM ■•-: $0D0A .-.,-...-. 

ALF 17, CPU SHOULO NOT HAVE ACCEPTED OSA 



03043 
03044 
03045 



HUM : ..._.$QDOA .... ,. —,—.-_-.. ...,. ;-._■.____:...-. 

ALF 17, DATA DURING FORCED PROTECT FAULT 



03046 
03047 



--^—60412800-0- 
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P0D88 5445 






P0O89 435<» 






P008A 2046 


- 


■- - ■ 


POnflB 4155 






P008C «»C54 






3048 POD80 OOOA 


ST917 


NUM 


3049 P008E 2034 




ALF 


P0O8F 2E20 






P0O90 434C 






P0091 4541 






P0D92 5220 






P0O93 434F 






PQD94 4E53 






P0O95 4F4C 






P 01)96 4520 






P0O97 5052 






P0D98 «»F54 






POO 99 4543 






P0O9A 5420 






P0O9B 5357 






3050 P009C ODOA 


ST928 


NUM 



OATEt 10/20/74 



SOOOA 

14, 4. CLEAR CONSOLE PROTECT SH 



03048 
03049 



SOOOA 



03050 
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3052 


******* ******** ************** 


3053 


* 






3054- 


■• 




SECTION 10 


3055 


* 


READ DRUM 


DO NOT CHEl 


3056 


* 






—3057--: - 


***************************** 


■-•— 3059 P009D C400 


SECTA 


LDA* 


ORT002 


P0O9E 0020 P 








3060 P009F 0111 




SAN 


SEAOO 


3061 PODAO 1B16 




JMP* 


SEA05 


3062 P0OA1 OA03 


SEA 00 


EN A 


3 


3063 P0DA2 5400 




RTJ+ 


ORE090 


■•••-— P0OA3 0218 P 








3064 P0DA4 0179 P 




AOC 


RIOl-i 


3065 P0OA5 D87F 




NUM 


$0B7F 


3066 P0DA6 0003 




NUM 


3 


3067 P0OA7 0A09 




ENA 


9 


3068 P0OA8 6850 




STA» 


STAOO 


— -■- 3069 P0DA9 0A1O 




ENA 


$10 


3070 POOAA 6400 




STA+ 


DRT203 


PODAB 00E5 P 








-3671- POO AC 0A03 




ENA 


3 


3072 PODAD 5400 




RTJI- 


DRE090 


PODAE 0218 P 








---■■- 3073 P09AF 010A P 




ADC 


FN02-1 


3074 POOBO 0008 




NUM 


8 


3075 P0DB1 1001 




NUM 


$1001 


3076 P0DB2 0C10 




ENQ 


$10 


3077 P0D83 5800 




RTJ 


IOCYL 


P0OB4 F336 








-— 3078 PO095 1803- 


- - ; --~: 


JMP» 


SEA10 


3079 P0DB6 0A19 


SEA05 


ENA 


$19 


3080 P0DB7 68<fl 




STA* 


STAOO 


3081 P0D88 0A03 


SEA 10 


ENA 


3 


3082 P0DB9 5400 




RTJ* 


ORE090 


PODBA 0218 P 








™3083H*0DBB O10A P 




ADC - 


FN02-1 


3084 POOBC 1800 P 




AOC 


RD8UF+3071 


3085 P0D9D 100E 




NUM 


$100E 


.. .- T -30«6-POOBE OC20 




ENQ 


$20 


3087 P0D8F 5400 




RTJ* 


IOCYL 


PODCO OOEB P 








-••-— 3088 P0OC1 5400 - 




RTJ+ 


SE690 


P0OC2 0872 P 








3089 P0DC3 6859 




STA» 


STA04 


-3090 P0OG4 5400 




RTJ+ 


ORE150 


P0OC5 028O P 








3091 P0DC6 4815 




STQ» 


STA01 


- — 3092 P0OG7 481E 




STQ* 


STA02 


3093 P0DC8 0A09 


SEA15 


ENA 


9 


309«» P0OC9 6400 




STA+ 


RECK02 


POOCA 0167 P 








60412800 


- . 







DATE* 10/20/7«» 



CHECKHORO CHECK • 

THF DATA. SUBFAfiF VERIFY ONLY. » 



CHECK FOR INTS REQUESTED 



YES-SKIP 
NO-JUMP 



RECOGNIZE INT 

ST1 MASK 
VALUE 
ST1 VALUE AFTER INT IS 

PROCESSED 
ST1 VALUE FOR INT 

PROCESSOR 



FUNCTION SET UP 
EOP CODE 

••» ERROR IX »♦» 

•••• ENABLE EOP INTERRUPT »**» 



ST1 VALUE AFTER BUSY 
OROPS 



FUNCTION SET UP 
FCA VALUE 

»*» ERROR 2X »»* 
**** LOAD FCA REGISTER •»•• 

GET TRACK LENGTH IN 8000-TRACKS 

TRACK COUNTER 

SET UP ISA REGISTER 

FUNCTION 
ST2 VALUES 

ST1 VALUE AFTER LOAD ICA 



03052 
03053 
03054 
03055 
03056 
03057 



03059 

03060 
03061 
03062 
03063 

03064 
03065 
03066 
03067 
03068 
03069 
03070 

03071 
03072 

03073 
03074 
03075 
03076 
03077 

03078 
03079 
03080 
03081 
03082 

03083 
03084 
03085 
03086 
03087 

03088 

03089 
03090 

03091 
03092 
03093 
03094 
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ORMP80 



PASE 6k 



DATE* 10/20/7* 



3095 
3096 

3097 
3098 
3099 
3100 
3101 

3102 
3103 

310* 
3105 

3106 
3107 
3108 
3109 
3110 

3111 
3112 

3113 
311* 

—3115 
3116 
3117 

-3113 
3119 
3120 

^-3121 
3122 

...3123 

312* 

-.. 3125 

3126 

3127 

...3128. 

3129 

^-3130 

3131 

3132 

._ .3A33. 

313* 

3135 

- 3136 

3137 

3138 



L. 



PODCB 0A03 
PODCC 5*00 
PODGO 0218 
POOCE 010A 
PODCF OFOE 
POODO 100C 
P0DO1 0C3O 
P0002 5*00 
P0OD3 JJ0E8 
PODQ* 0A09 
P0DO5 6*00 
P0OD6 0OF2 
POD07 0AO3 
P0OD8 5*00 
P0DD9 0218 
POOOA 010A 
P0003 0000 
POOOC 1008 
P0DD9 0C*0 
PODOE 5*00 
POOOF OOEB 
POOEO 0A03 
POOEi 5*00 
P0DE2 0218 
P0DE3 00F6 
POOE* 7FE0 
P0DE5 OOOO 
P0DE6 C8F* 
P0OE7 0920 
P0OE8 01A0 
P0OE9 A087 
PODEA 681* 
POOEB- OA03 
POOEC 6*00 
POOEO 0167 
P0OEE..5W10 
PODEF 0218 
P0DFO 018D 
P0OF4, 0B7F 
P0OF2 0003 
P0OF3 OA09 
POOF* .5*00 
P0DF5 0218 
P0OF6 019A 
PQ0F7 -UB7F 
P0DF8 0000 
P0OF9 FFFF 
PflOFA-lBQE 
POOFB 0002 
POOFO 7FE0 
PJJOFE 00 00 
POOFF 0A01 
POEOO 6*00 
HOE 01 -0181 



60*12800 



ENA 
RTJ* 



STA01 



STA02 



STAOO 



STA03 



AOC 
AOC 
NUH 
ENQ 
RTJf 

ENA 
STA* 

ENA 
RTJ* 

AOC 
NUM 
NUN 
ENQ 
RTJ+ 

ENA 
RTJ* 

AOC 

NUM 

NUH 

LDA* 

INA 

SOV. 

AND- 

STA* 

ENA- 

STA+ 

RTJ* 

AOC 
NUM - 
NUM 
ENA 
RTJ* 

AOC 
NUM 
NUM 
NUM 
ADC 
BZS 
NUM 
NUM 
ENA 
STA* 



3 

DRE090 

FN02-1 

RORUF 

S100C 

$30 

IOCVL 

9 
CKST02 

3 

ORE090 

FN02-1 

$1008 

$*0 

IOCYL 

3 

ORE090 

CKST07-1 
$7FE0 

* ■ 

STA01 

$20 



H7FFF 

STA03 

3 

RECK02 

DRE090 

MNTR01-1 

$0B7F 

3 

9 

DRE090 

FECK11-1 
.$0B7F- - 

♦ 

SFFFF 

RQ8UF*30 72 
(2> 

S7FE0 



DRT01* 



FUNCTION SET UP 
ICA VALUE 

••• ERROR 3X *•• 

»••* LOAD ICA REGISTER »»•• 



ST1 VALUE 8EF0RE ISA LOAD 



FUNCTION SET UP 
ISA VALUE 

••• ERROR *X ♦•• 
•••• LOAD ISA VALUE •••» 



CHECK STATUS 
ST2 MASK 
VALUE 
INCREMENT TRACK AOORESS 



ST1 VALUE AFTER START READ 



MONITOR STATUS 
ST1 MASK 
VALUE 



2ND RECHECK STATUS 
ST1 M 

V 
ST3 M 

V 

ST2 M 

VALUE 
SET READ SWITCH 



03095 
03096 

03097 
0309S 
03099 
03100 
03101 

03102 
03103 

0310* 
03105 

03106 
03107 
03108 
03109 
03110 

03111 
03112 

03113 
0311* 
03115 
03116 
03117 
•••03118 
♦••03119 
03120 
03121 
03122 

03123 

0312* 
03125 
03126 
03127 
03128 

03129 
- 03130 
03131 
03132 
03133 
0313* 
03135 
03136 
03137 
03138 
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DRMP80 
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85 




3139 P0E02 0842 


CLR 


Q V 




;-■•■■-;' 3140 P0E03 4400 


STQ.+ 


DRT013 




rlltllH ulDU T 








3141 P0E05 5400 


RTJ+ 


DRE170 




P0E06 0213 P 








-"^-31*a PQ£&7-"OD5g~~ ■■■—-- 


- -ENO- — 


$50— 


_..... 


3143 P0E08 5400 


RTJ* 


IOCYL 




POE09 00EB P 








— — 3144-POEOA 5400- ~" 


RTJ+ 


0RE400 




P0E0B 0297 P 








3145 P0E0C 5400 


RTJ* 


SE840 




,.„_. ..p flE0O 080F P 




- ■ - 




3146 P0E0E C8E9 


LDA* 


STAOO 




: 3147 POEOF 6400 


STA* 


CKST02 




—'-,'_.; i~.l" :,.:Snnc4', n *Aitck--.n . 




- - -- ■- 




PufclO UOrZ P 




3148 P0E11 E8EC 


LDQ» 


STA03 




3149 P0E12 48C8 


STQ» 


STA01 




*t5# T P0Ei3-48Bl •-.-■■• - — • 


STQ» 


STA02 




-3151 P0E14 4400 


STQ> 


CKSTOS 




; P0E15 00F8 P 








i %±52-POE16-t)8fl& - - - 


-RAO*- 


- STA04 - 




3153 P0E17 01A2 


SOV 


SEA20 




3154 P0E18 1400 


JMP* 


SEA15 




-— P0E19-QDGB-P 








: 3155 P0E1A 5400 SEA20 


RTJ* 


DRE05Q 




^; P0E1B 0064 P 








: -^~3i56 P0ElG--8fl00 ST A 04- 


■- ~NUM 


. » .-■. 





OATEI 10/20/74 



CLEAR EARLY EXIT 03139 

03140 

SET INT SH IF REQUESTED 03141 

•»» ERROR 5X •»» 03142 

•••• READ 1 TRACK •»*• 03143 

ALARM CERREOR) CHECK 03144 

SET FN AND EARLY EXIT 03145 

AOJUST ST1 03146 

VALUE 03147 

INCREMENT ALL ISA 03148 

VALUES EXCEPT 03149 

LAST 03150 

03151 

CHECK FOR LAST TRACK 03152 

YES-SKIP 03153 

NO-60 AGAIN 03154 

EXIT 03155 

TRACKS COMPLETED 03156 



Vi^^^qT. 
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DATE! 10/20/71* 



3158 

3159 

31£0~~ 

3161 

3162 

3163 



» . 

■*■ - - - — -SECTION 11 

♦ CLEAR TIMING ERROR, WAIT 1 REVOLUTION FOR INTERRUPT 

* 



03158 
03159 
03160 
03161 
03162 
03163 



3165-P0E1D 

3166 P0E1E 

P0E1F 

3167-P0E20 

3168 P0E21 

3169 P0E22 
..... P0E23 

3170 P0E2*» 

3171 P0E25 
P0E26 

3172 P0E27 

3173 P0E28 

3174 P0E29 

3175 P0E2A 

3176 P0E2B 
-3177.P0E2C 

P0E2O 
3178 P0E2E 
-3179 -P0E2F 

3180 P0E30 

3181 P0E31 
-3182 P0E32 

3183 P0E33 

3184 P0E34 
^: _ P0E35 

3185 P0E36 

3186 P0E37 
_3iaZ.P0E38 

3188 P0E39 

3189 P0E3F 
~3190^P0E*0 

PQE*»i 

3191 P0E«»2 
PQE43 

3192 POEMf 

3193 P0E45 

— ._;:, poEfrs 

319«f P0E47 

PQE48 

„3195_Ptt£*9 

P0E*A 

3196 POEi»B 

3197--PDE4C 
POE40 

3198 



0017 

COOO 

0E50 P 

5408 

0A10 

&t*00 

010B P 

0A0*» 

5400 

0218 P 

0178 P 

7530 

0B7F 

0009 

0A05 

5i»ao 

0218 P 

018B P 

0000 

0110 

DB7F 

0003 .... 

0A09 

5400 

0218- J» 

019A P 

0B7F 

000.9. .... 

0006 

OCOO 

4400 — 

01B0 P 

5400 

0213. P. 

0A01 

6400 

0OE7 LJ». 

COOO 

0825 

6400- 

00E5 P 

0C10 

5400 

OOEB P 



SECTS 



ENQ STB01-STB00*1 
LOA =XSTBOO 

RTJ- CTYPEOUT) 

ENA $10 

STA* FN02 

ENA if 

RTJ+ DRE090 

AOC RI09-1 

NUH 30000 

NUM $0B7F 

NUM 9 

ENA 5 

RTJ* OREO 90 

AOC MNTR09-1 

NUH- 

NUM $0110 

NUM S0B7F 

.NUM.. 3 ._ 

ENA 9 

RTJ* ORE090 

AOC RECK11-1 

NUM SDB7F 

NUM ._ .......9 

BZS (6) 

ENQ 

STQ*~ DRT013 

RTJ* DRE170 

ENA 1 

STA* DRT205 

LOA =NS0825 

.SI.A*_._ JDRT203- ._...„,. 

ENQ «10 

RTJ* - -IOCYL 



GENERATE TIMING ERROR 
ENABLE ALARM INT 



RECOGNIZE INT SET UP 
WAIT 30 SEC 
ST1 MASK 
VALUE 



MONITOR STATUS SET UP 
TIMER 

STATUS CONTROL HORO 
ST1 MASK 
-VALUE 



2ND RECHECK STATUS 

ST1 MASK 
- VALUE 

CLEAR EARLY EXIT 



SET INT SNITCH 



MAKE INT PROC SEND CLEAR CONT 



»»» ERROR IX »»» 
.••*• ENABLE ALARM INT »»»» 

WAIT FOR CLEAR TIMING 



03165 
03166 

03167 
83168 
03169 

03170 
03171 

03172 
03173 
03174 
03175 
03176 
03177 

03178 
03179 
03180 
03181 
03182 
03183 
03184 

03185 
03186 
03187 
03188 
03189 
03490 

03191 

03192 
03193 

0319% 

03195 

03196 
03197 

03198 



c 
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ORMP80 


3199 




* 


3200 


P0E*»E 


5^00 


. 


-POE«»F 


-fl06«r-P-~ 


-.-320£ -POE5B- 


00 A S 


3203 


P0E51 


20*»7 




P0E52 


*»5«fE 


-"' 


P0E53 


205«» 




P0E5*» 


«*9W) 




P0E55 


M i*E 


. ...„ 


P0E56 


1*720 




P0E57 


**S5Z 




P0E58 


52«fF 


— :.._..:. 


POE59 5220 


320«t 


P0E5A 


DDOA 


3205 


P0E5B 


20^0 


,..,..„ .. ...... — 


P0E5O 


*»F*»D 




P0E5D 


«f5«»E 




P0E5E 


5I»M 


■— ----- ; — 


-POE5F 


52«»9 — - 




P0E60 


ifC59 




P0E61 


20*f7 


■-.- -;- - r - 


P0E62 


t*£hk - 




P0E63 


20 ttl 


• "-.-v ; ' ': ;, 


P0E6«» 


313«f 


l:c^.-.. _~_. 


-4*QE65 


2*32- 


3206 


P0E66 


ODOA S 



PAGE 87 



0ATE1 10/20/7«» 



RTJ+ ORE050 



ERROR INT ERUPT 
EXIT 



STBQO- 



NUM - $ODOA 

ALF 9, GEN TIMING ERROR 



03199 
03200 



03202 
03203 



NUH SOOOA 

ALF U, MOMENTARILY GNO A1V2 



0320*i 
03205 



STB01 



NUM 



SOOOA 



03206 



601*12800 -0 
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DATE* 10/20/74 



3208 
3209 
-3*10 
3211 
3212 



************************************************************************ 

* * 

*- - INITIALIZE ■ • 

* » 
************************************************************************ 



03208 
03209 
03210 
03211 
03212 



3214 
3215 

3216 

-3217 
3218 
3219 

3220 
3221 
3222 
3223 
3224 
3225 
3226 
3227 

3228 
3229 
3230 
3231 
3232 



-3233: 



P0E67 
P0E68 
PQE69 
POESA 
P0E68 
P0E6C 
P0E6O 
P0E6E 
P0E6F 
P0E70 
P0E71 
P0E72 
P0E73 
P0E74 
PQE75 
P0E76 
P0E77 
P0E78 
P0E79 
P0E7A 
-POETS, 
P0E7C 
P0E7O 
P0E7E 
P0E7F 
P0E80 
P0E8L. 
P0E82 
P0E83 
PQE44 
P0E85 
PQE86 
PJE8Z- 
P0E88 
P0E89 
,P_0E8A. 
P0E88 
P0E8C 
-P0E80 
P0E8E 
P0E8F 
P0E90 
P0E91 
P0E92 
P0E93. 



0000 

COOO 

OOOE F 

6400 

0005 P 

C8FA 

09F6 

6800 

F199 

540A 

4839 

6839 

E091 

C291 

540A 

6839 

COOO 

0E7C f= 

0C34 

5408 

5401 

ODOA 

4452 

40-50 - 

3830 

2020 

4247- 

3530 

3420 

44.52- 

5540 

2054 

-4553- 

5420 

2020 

2a56 

5220 
33 2E 

3120 

3120 

494E 

4352. 

4540 

454E 

5441- 



TTFOOO 



ITTOOO 



NUM 


* 




LOA 


=XDREOO0 




ST A* 


MONRTN 


SET UP TO Rl 


LOA* 


ITEOOO 


CALCULATE F 


INA 


-9 




STA 


BIAS 




RTJ- 


<HEXASC> 


FHA TO ASCI 


STQ* 


ITT005 




STA* 


ITT010 




LOQ- 


TSACTV 


SET UP 


LOA- 


TSFREQ-i,Q 


FREQUENCY 


RTJ- 


(HEXASCI 


COUNT 


STA* 


ITT015 




LOA 


=XITT0O0 


FHA OF MSG 


ENQ 


ITT015-ITT000+1 


LENGTH 


RTJ- 


(TYPEOUT) 




RTJ- 


(CONTROL) 


EXIT 


NUM 


$0O0A 




ALF 


Z,ORMP80 BG50«f 


DRUM TEST Z 



ALE 



03214 
03215 

03216 

03217 
03218 
03219 

03220 
03221 
03222 
03223 
03224 
03225 
03226 
03227 

03228 
03229 
03230 
03231 
03232 



X* -MR 3.1*1 INCREMENTAL RELEASE 



♦•♦03233 
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DATE! 10/20/71* 



323*i 



3235 
3216 

3237 

•3238 

3239 



3240 



P0E94 4C20 

P0E95 5245 
-P8€96-4C45^ 

P0E97 4153 

P0E98 4520 

P8E99 2020 

P0E9A 2020 

P0E93 2020 

POE9C-2O20- 

P0E9O 2020 

P0E9E 2020 

POE9F 2020 

P0EAO 2020 

POEAi 2020 

PQEA2 2020 

P0EA3 2020 

P0EA4 2020 

P0EA5-435O 

P0EA6 3246 

P0EA7 OOOA 
-POEAB 4941 

P0EA9 3O20 

POEAA 0000 

POEAB OOOO 

POEAC 2C20 

POEAD 4643 
-PQEAE 3020 - - — 

POEAF 0000 ITT015 NUM 



ALF 



NUM 
ALF 



ITT005 NUM 

ITT010- NUM 

ALF 



3, CP2F 



SODOA 
2*IA= 



3,, FC- 



PTC2 03234 



03235. 
03236 



03237 
03238 
03239 



032%0 




.******* **************************************** *»«**»*******« *««**»***** 

* 

♦ MBS ERROR FILE DATA 



************************************************************************ 



STATUS i ADDRESS 
STATUS 2 ADDRESS 
STATUS 3 ADDRESS 
STATUS 4 AODRESS 
CHAN ADDR STATUS 
EQUIPMENT NUMBER 



-3248- POEBO- 00 - ~ 


A5 -;- 


- NUM- — 


._....* ,,. ..., ... 




3249 P0EB1 0001 ; 




NUM 


: $0001 




3250 P0E82 0002 




NUM 


$0002 




_ , »su5 <— cuuea ■x—nn nx 




• timf..: . . 


$0003 — ~ - - ^ - 

$0004 




~~&tOX ^VCtJ Or — tin u^ 

3252 P0EB4 0004 




NUM 




3253 P0EB5 0000 




NUM 







-3254~P0EB6: 0000 


- -■- 


-NUM— 


. .. ..*. .. .-..-.„ 




3255 PflEB/ 0056 




BSS 


(TSDATA) 




3256 POFOD OD07 


BELL 


'■ NUM 


$0007 




- 3257^-POF 0£ -GC 00 - - 


RDBUF ~ 


- BSS 


■•- RDBUF(3072) 




3258 P1B0E OCOO 


WRBUF 


BSS 


HRBUFI3072) 




3259 P270E 270E P 


ORMENO 


ADC 


* 





CR/BELL 

32 SECTOR READ BUFFER 

32 SECTOR WRITE BUFFER 



>**»♦ • 


03242 


* 


03243 


* 


03244 


..».-.. 


03245 


►**** 


03246 




-03248 




03249 




03250 




-03251 




03252 




03253 




03254 




03255 




03256 




03257 




03258 




03259 
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DATE! 10/20/7** 



3260 
3261 
3262 
3263 



0000 
0061 
0OB7 n 



OAT 
OAT 
OAT 
END 



AI00P1!97) 

ATDDP2<BELL-A5-7> 

AIODP3CORMEND-ROBUF1 



03260 
03261 
03262 
03263 
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DATE* 10/20/7** 



PGM= 270F ( 9999) COK = 0000 ( 0) DAT = 18B7 C 6327) 
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HE QU I VALENCES 
H DEPa.~INE NAME VALUE 



0000 



00FF 



(000255) 



REFERENCED AT LINE NUMBER 

0852, 0866, 0933, 0937, 1126, 1147 

1152, 1159, 2028, 2053, 2060, 2128 

2155, 2346, 2380, 2437, 2441, 2514 

2589, 2749, 2774, 2798, 2834, 2840 

2942, 2950, 2958, 2973, 2988, 2995 



0053 


CONTRO 


0001 


(000001) 


, 0619, 


1065, 


3230 








0054 


STOP 


0002 


(000002) 


, 0249, 


0334, 


0358, 


0890 






0055 


EXIT 


0003 


(000003) 


, 0344 












0056 


REQIT 


0004 


(000004) 














-0057~- 


JUMP 


0006 


(000006) 


i 0245, 
, 0901, 


0341, 
0906, 


0346, 
2454 


0363, 


0366, 


0633 


0058 


RANDOM 


0007 


(000007) 


, 2126 












-0059 


- TYPEOU 


0008 


(000008) 


• 0622, 


1068, 


1623, 


1823, 


2424, 


2747 










, 2806, 


2866, 


2906, 


2964, 


2971, 


2981 










, 3167, 


3229 










0060- 


- HEXASC 


000 A 


(000010) 


,1053, 


1057, 


2966, 


3220, 


3225 




0061 


MONPP 


000F 


(000015) 














0062 


FN 


0010 


(000016) 


, 0540 












0063- 


MNTRST 


0011 


(000017) 


,0708 












0064 


CKST 


0012 


(000018) 


, 0506 












0065 


RECKST 


0013 


(000019) 


, 0657, 


0730 










-0066— 


— ERROR - 


0014 


(000020 V- 


r 0606 












0067 


RDMLY 


0016 


(000022) 














0068 


FIXOLY 


0017 


(000023) 


♦ 0427, 


0450, 


1023, 


1624, 


1824, 


2807 


- — •' — ■-■■- 


— .... 


-~ — .-■- ~ — 


-■ - v 


,2867, 


2982 










0069 


SETPP 


0018 


(000024) 


, 2861 












0070 


GLRPP 


0019 
001A - 
001B 


(000025) 
(000 026) 
(000027) 


, 2976 
♦ 0557 - 
, 0578 












UUfl 

0072 


HR 












0073 


HOG 


001C 


(000028) 


, 0505, 


0707, 


0749 








-00-7-4— 


-r-FWI-rv 


~001€" 


(000030) 


...._ 




...... -....., 


-- 


---■ --• -■ 




0075 


FWAEI 


001F 


(000031) 


, 1243 












0076 


MSINIT 


0020 


(000032) 


,0229, 


0279 










0077- 


- Rim -— 


0O2ir~ 


(000033)- 


-t H0683- 


- ; -■ 





--- : 






0078 


OSELIN 


0022 


(000034) 


, 0460 












0079 


SELIN 


0023 


(000035) 


, 0523 












--00*0 - 


— --3JP-AR— ■ 


-r-0043-rr 


(000067)- 


...... . . 




■•■■■■- 


■ - •■. 


.... . . .. 




0081 


LASTAD 


0045 


(000069) 














0082 


INFORM 


0049 


(000073) 


, 0614, 


1060 










-0883~- 


— SNMGNT- 


0056 


-< 00008 6) 


,1114, 


1206, 


2753 








0084 


8ITO0 


006B 


(000107) 


, 0085, 


0294, 


0615, 


1061 























- 
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DATE! 10/20/74 



0085 
0086 
4)087 
0088 
0089 

0090 
0091 

0092 
0093 
0094 

0095 
0096 

0097 
0098 
0099 



0100 
0101 

.....0102- 
0103 
0104 

_^-0i05 
0106 
0107 

-0108 

0109 
0110 

.^(Uli... 
0112 

__.011X. 
0114 
0115 

„. ..0116. 
0117 
0118 

„„„JU19~. 

0120 
~~~&122- 
0123 
0124 
,._^ai25L_ 

0126 
._._0i27~. 
0128 
0129 



BIT01 
8IT02 
BIT03 
BIT04 
BIT05 

BIT06 
BIT07 

BIT08 
8IT09 
BIT 10 

BIT 11 
BIT 12 

BIT13 
BIT14 
BIT15 



ZERO 
HFFFF 
HflaOF- ... 
HOOFO 
HOFOO 

HFaoo— 

HOOFF 

HFFOO 

HFFFO- 

HOFFF 

HFFOF 

HFOFF - 

H7FFF 

M7EQH ...- 

H0780 

H007F 
.H2020^~ 

TSACTV 

TSFREQ 
-COHUSE 



TEMPLO 
-START - 
WEST1 
WEST2 
HEST3.. 



006C 
006O 
006E 
006F 
0070 

0071 
0072 

0073 
0071* 

0075 

0076 
0077 

0078 
0079 
007A 



007B 
007C 
0070 
007E 
007F 
-0080 
0081 
0082 
0083 
0084 
0085 
0086 - 
0087 

.0088 .... 
0089 
008A 
-0088 
0091 
0092 
OOCA-. 

00D4 

oooo 

0001 
0002 
0003 



(000108) 
(000109J 
(000110) 
(000111) 
(000112) 

(000113) 
(000114) 

(000115) 
(000116) 
(000117) 

(000118) 
(000119) 

(000120) 
(000121) 
(000122) 



(000123) 
(000124) 
(0001251 
(000126) 
(000127) 
1000128) 
(000129) 
(000130) 
(000131) 
(000132) 
(000133) 
4000134) 
(000135) 

.(000136). 
(000137) 
(000138) 
(000139) 
(000145) 
(000146) 
(O0.0202). 



0086, 1021 

0087 

0088, 0396, 0475 

0089 

0090, 0365, 0431, 1000, 1167, 1252 

0091, 0340 

0092, 1568, 1774, 2010, 2325, 2572 
2831 

0093 
0094 
0095, 0345, 0362, 0905, 1628, 2452 

0096 

0097, 0435, 0813, 1013, 1533, 1743 



I, 0827, 2603 

I, 0774, 2485, 2577 

I, 0925, 1384, 1447, 1452, 1551 

!, 1564, 1652, 1656, 2096, 2147 
2943 



0098. 

0099, 

0100. 

1562, 

2548, 

0101 

0102 

0103 

0104, 1016 

0105 

0106 

0107, 

0108. 

0109 

0110 

0111 
-0112 .- 

0113, 1236, 1462, 2070, 2370, 2445 

3119 

.0114 -^ - 

0115 

0116 

0118, 3223 

3224 

0853, 0858, 0859+ 0863, 0879, 0882 



', 0398, 1627 
>, 0374, 1176 



WEST4 
HECHST 
WE 
ILT 



0004 
0005 
0006 
0007 



(000212) 

•40004)00) ,0123, 0192 

(000001) , 0124 

(000002) , 0125, 0822 

(000003) ,0126, 0408, 0414, 0469* 0804, 0824 
, 1225 

(000004) , 0127 

(000005) ,0128 

(000006) , 0129 

(000007) , 0130 
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DATE1 10/20/7% 


0130 PRGCLK 


0009 


(000009) , 


» 0131 




0131 HACT 


000A 


(000010) i 


0132 




'----■- 0132- - D ATLGH 


0008 


(000011) 1 


0133 




0133 TSTNAM 


OOOC 


(000012) 1 


013% 




013% PRGERR 


000E 


(00001%) i 


0135 




-~ : — 0135- -MNTERR 


O00F 


(000015) i 


0136, 12%5 




0136 ITESYM 


0010 


(000016) 1 


0137 




0137 IOESYH 


0011 


(000017) , 


0138 




- i — 013ft PRESYH 


0012 


■-(000018V", 


0139 




0139 AFESYH 


0013 


(000019) , 


, 01%0 




01%0 PEESYM 


0014 


(000020) • 


, 01%1 




........ oi^i PFESYH 


0015 


i000021) , 


, 01%2 




01%2 CHANNO 


0016 


(003022) , 


01%3 




01%3 EQUIPT 


0017 


(000023) , 


01%% 




- -fll%%- STATNO 


0018 


(00002%) , 


01%5 




01%5 ' ITLINS 


0019 


(000025) , 


01%6 




01%6 XTIME 


001A 


(000026) 1 


01%7 




r-:-— rrMV7-. TIMER 


0018 


(000027) 1 


01%8 




01%8 STCNTL 


00 1C 


(000028) , 


» 01%9 




01%9 L0PER 


0010 


(000029) , 


0150 




~ "-— 0150~ — -t OPRSP 


00 IE 


(000030) -, 


,0151 


- ■■ •-■- ' 


0151 LOPERA 


001F 


(000031) , 


0152 




0152 LOPERQ 


0020 


(000032) , 


, 0153 




— ~: 0153 LINST 


-0021 


(000033) - 


015% 




015% LINRSP 


0022 


(00003%) 1 


0155 




0155 LINSTA 


0023 


(000035) , 


, 0156 




~^-—Q 156— LI NSTQ 


002% 


-(000036) , 


0157 




0157 IMR 


0025 


(000037) , 


, 0158 




0158 PREG 


0026 


(000038) , 


0159 




. _._^ i5«j. rr - LINENO - 


--M27- 


(000039) , 


r 0160t 0189 


-- -• 


0160 EXIMR 


0028 


(0000%0) 


, 0161 




0161 ST1RSP 


0029 


(0000%1) , 


0162 




_.._ _ ^^2^-- S KIP7-- 


-002A 


(OO00%2) 1 


i 0163 - 


---•• - -■ 


0163 ST2RSP 


002B 


(0000%3) , 


016% 




016% SKIP5 


002C 


(0000%%) , 


0165 




:— 0165--- — GHR5P-- 


-00 28 


-fOO00%5)-, 


r 0166 - - 


- -■ ■•—--•■ r— -■ 


0166 CHARSP 


002E 


(0000%6) , 


0167 




0167 SKIP5A. 


0O2F 


(Q000%7» , 


0168 




*___._.(, j.^8 — CH3RSP-- 


-O030 


-*0O0G%8+-, 


-0169 -■■'---■- 


._:.._. .... ...._, .':.■..,._ ... 


0169 ST1 


0031 


(0000%9) , 


0170, 0999, 


1020 


0170 SKIP8 


0032 


(000050) 


, 0171 




— r-^-M7i-rr~.ST-2 


-0033 


(OO0O5U-M 


"0172t-1235 


..-.._...,......_-.,...,,.. ....._ . . .. 


0172 SKTP% 


003% 


(000052) 1 


0173 




0173 CHST 


0035 


(000053) , 


017% 




_ -_^j 17 ^^ ~{JHA0R~ - 


-0036- 


•--COO'005%-) i 


0175 




0175 SKIP%A 


0037 


(000055) 


, 0176 




0176 CHST3 


0038 


(000056) , 


0177 




— -~0i77~ r ~ XST1 


0039 


— (000057) , 


0178 


■■■• - •■- ■-•■■• - 


0178 SKIP6 


003A 


(000058) , 


0179 




0179 XST2 


003B 


(000059) i 


0180 




- — -O180~--- SKIP? 


-003G 


(000060) , 


r 0181 •- 




0181 XCHST 


0030 


(000061) , 


0182 




0182 XCHAOR 


003E 


(000062) , 


, 0183 





r^ 
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PAGE 


95 




0183 


SKIP2A 


003F 


(000063) 


• 


0184 




0184 


XCHST3 


0040 


(000064) 


, 


0185, 


0189 


-0185 


CALLP 


0041 


(000065) 


•, 


0186 




0186 


MPXRTN 


0042 


(000066) 


, 


0187 




0187 


RBIT 


0043 


(000067) 


» 


0188 




0188 


TSCOML 


0044 


(000068) 


■ , 


0190, 


0191 


0189 


SDATA 


0019 


(000025) 


t 


0190, 


0191 


0190 


TSDATA 


0056 


(000086) 


♦ 


3255 




0191 


TDATA 


0050 


(000093) 








0192 


ERRFLE 


0009 


(000009) 


* 


0193 




0193 


CRLUNO 


OOOA 


(000010) 


, 


0194 




0194 . 


CRSUNO 


0008 


(000011) 








743 


FAST 


0039 


(000057) 


, 


1221 




0744 


ERRTN 


7F8F 


(032703) 


» 


1305 




-0745 - 


- CKRTN - 


0035 


(000053) 


-, 


1299 




0746 


FERR 


0068 


(000104) 


* 


1271 




0747 


FNORM 


0068 


(000104) 


» 


1272 




0748 


CKNORM 


0055 


(000085) 


■ t 


1302 





DATE! 10/20/74 



c 
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DATE* 10/20/74 



M S Y M 8 


L S 




— ~M OEF*LINE NAME - 


ADD 


0220 


PARADR 


0004 


0221 --.-- 


MONRTN 


00O5 


0223 


BEGIN 


0007 


0224 


BIAS 


0009 


0229 


DREOOO 


OOOE 


0241 


ORE003 


0013 


0244 


ORE004 


0016 


0248 


ORE005 


001A 


--0252 


- PARAM - 


OOifr- 


0253 


ORTOOO 


001E 


0255 


DRT001 


001F 


0256 - 


ORT002 


0020 


-~^-^0258- : --- 


-ORT0tf3- 


0822 


0259 


ORTOOO 


0023 


0265 


ORT005 


0024 


— — -0266 - 


ORT006 


0025 


0267 


ORE010 


0026 


0272 


ORT026 


002B 


• — ^~^~q 273- — -- 


ORE 007- 


-00 2 G 


0287 


DRE012 


0033 


0288 


ORE030 


0034 


-—— 7-0292 - 


-ORE020 


-0038 


0297 


ORE 015 


0030 


0302 


OREOl? 


0043 


— O305-— 


—ORTOfla - 


0046- 


0313 


ORT010 


0047 


0332 


ORE 035 


0053 


_„ 0337 


- 0RT009- 


0058 


0338 


0RT028 


0059 


0339 


ORT027 


005A 


^~ — -0340 - 


0RE04O 


0*58 


03<f3 


DRE045 


005E 


0345 


ORE047 


0060 


r :~-^356- 


-OREO 50 


0064- 



-0361 



0362 
0369 



ORT007- 0069 



ORE052 
DRE055 



006A 
0071 



REFERENCED AT LINE NUMBER 



0618, 1064, 3216 

0218, 0221 

02«»8, 0333, 0343, 0357, 0889, 3219 



3215 

0242, 

2t»53 

0233 

0225, 

0220 

0277, 

1458, 

0521, 

1511, 

2458, 

0982, 

1658, 

1576, 

2414, 

0247, 

0243, 

0268, 

0368 

0296 

0290 

0295, 

0370 

0276, 

0303 

0291 

0231,- 

0278 

0232, 

0335 



0271, 0347, 0364, 0904, 2425 



0246 

0292, 0612, 0773 

1557, 1765, 2093 

0529, 0671, 0839, 1027, 1470 

1529, 1579, 1891, 2076, 2172 

2664, 3059 

1887, 2091* 2438 

1799 

2515 

2484, 2547, 2576, 2602 

0250 

0267, 0270 

034» 



0643 

0287, 0297 v 0481, 06«»2 

■0332 - - 

0598, 0878 



0342 

1069, 1173, 1187, 1249, 1262, 1287 

1378, 1609, 1845, 20«f9, 2376, 2984 

3155, 3200 

027t», 0299, 0301, 0369, 0373, 0376 

0395, 0397, 0474, 0476, 0604, 0886 

1015 

0359 

0367 



c 
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OATEl 10/20/74 




0372 


DRE125 


0073 


, 0377, 


0502, 


0884, 


1259, 


1356 




0391* 


DRE200 


0079 , 


, 0477, 


0528 










0*29 


ORE203 


00A6 - , 


r 0424 












0439 


ORE205 


D030 


, 0432 












0442 


DRF210 


00B3 , 


, 0439 












0443 


DRE215 


0084 


, 0441 












0452 


DRE217 


OOBE ■ 


i 0445 












0460 


ORE220 


00C7 














0479 


ORE225 


OODC , 


r 0423, 


0444, 


0483 








0485 


DRT200 


00E2 , 


, 0401, 


0462 
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0498 , 


, 1322, 1323, 


1362, 1371, 1374 


<— -±393 


--ST304 


■-BM9— '- i - -- --, 


...1297 .... 




r Me/ — 




1394 


ST305 


049A 


, 1328, 1381, 


1383 


1395 


ST306 


0493 , 


, 1330, 1358 




- — — 1 396 


--.--S-TW9-- 


049C , 


, 1329 




1406 


SECT4 


0490 i 


, 0317 




■1407 


SE400 


049E 






— -±415- 


— ST401 


— fl4AO~- - 1 


y 1443 


-•■ 


1456 


ST408 


04F0 






1468 


ST403 


0500 , 


, 1464 




*-—-— 1473- 


--SE405- 


0507 , 


,1471 


■ - - ■ .._... 


1476 ': 


ST406 


050B 






I486 


. SE407 


0519 , 


, 1472 




-— ~*4«7-- 


~ -S£*08 - 


- 051 A - , 


r 1485 




1514 


ST409 


0549 i 


, 1482, 1486 




1516 


SE410 


054B 1 


1512 





r 
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it 10- 


1517 


SE415 


054C , 


1515 




1522 


ST410 


0552 , 


1517 




l__._1537.. 


- SE412 


0567 , 


1530 -■-■ - 




1583 


SE420 


05A9 , 


1580 




1584 


SE425 


05AA i 


1582 




__..„ — 1596- 


ST411 - 


-05BE , 


1542* 1585 - - - - 




"1597 


ST402 


058F 1 


, 1584, 1607 




1601 


ST404 


05C3 , 


1578 




---1603 


ST405 


-05G5 - , 


, -1559 — ■■-- 




1621 


SECT5 


0501 , 


0318 




1641 


ST514 


05EA , 


1646 




- —. 1687 


ST5Q2 


0634 ,.., 


,1664 




1697 


ST503 


0640 , 


1665 




1752 


ST500 


0694 1 


1745, 1761 




.:. — ^„4753_ 


- ST505- 


-0695—— .-:■-:»-.-'--, 


t 172 Zt 174T, 4763, 


1810 


1754 


ST506 


0696 1 


1704, 1785, 1795 




1755 


ST507 


0697 , 


1719, 1730, 1738 




_. 4756— 


ST508-- 


0698 -.- , 


,1725, 1814* 4828 





»: ; ^i757'-. 


ST509 


0699 , 


, 1706, 1797, 1805 




1 '•;•••- 1758 


; ST510 


069A , 


, 1711, 1817 . 




?'; : - ^-'•'"•■i759' T 


— ^£541. __ 


—069B — ■— -'• •———.-- M 


r- 1667,-4772- •— 

, 1727, 1736 




1760 


ST513 


069C 1 




1761 


SE510 


0690 , 


► 1751 




, 4647— 


— SE500-. 


.0722 - ...< 


, . 1677» 178 ^ 4834 , 


-1856 


/■:.:-v : -/vill55-:- 


ST501 


072E '■ - , 


, 1663 




1858 ■■■ 


SE505 


0730 1 


1713, 1807, 1869 




' : -_^__±44i65_i_ 


— - ST-504 


— 0-736--^-- : ~— — : — 1 


r- 171 8,~1 806 - - <——- 
1666, 1812 




1868 


ST512 


073C , 




1870 


ST520 


073E i 


, 1621, 1622 




^--^4*72-, 


.— ST521- 


. 074S-— r-r- 1 


> .1621, -4821,.-4822-. 


. 


^^'-■1874':;'. 


ST522 


0759 1 


1821 ■.'. 




&-. - :i884 


SECT6 


075A , 


, 0319 




:■'•--• --•■•- 1902 


__ SE603-— 


;&77-6-~ - - ••-—-- — ■ -1 
077F 


t 1974 




1909 


SE640 




1925 


ST602 


0795 , 


> 1921 




1957 , 


— -ST6Q3-— 


„JJ 7CO , 


,-4948 ,,496 9- ..-.; 


_». _.,..,. 


-H" ^1961 ' 


ST604 


07C4 ' 


, 1952 - : 




^i : ..\i-1963'- : 


. ST605 


07C6 < 


► 1946 




i__^_^4975-- 


---SE635- ■'■- 


.:4J.70«.__'™1^ ..:.)•.. ..__.., 


r -1-973 •■■ 


...>....... . 


1993 


SE670 


07F1 , 


, 2046 




1999 


ST610 


07FA 






-_,.__2008-- 


-..ST606 .,. 


.0806 - i 


► 1979, -2 03 9,- 2 044 




:••'.'■'•■•■ 2033 


SE680 


082E : 


, 2035 ^ 




2040 


SE655 


0839 






■£^L±-ZQk7— 


-SE665- 


,...0642-,-..-.....—.:.-..-..-:— -. 


,2041 --■ '•-.- ' 


...,-... 


2051 


SE600 


0848 


, 1945, 2012, 2073 




2058 


SE605 


0852 


, 2067 




2059... 


. SE606- 


-0853 : ,., 


,..2063 - - 




: 2064 


SE610 


0858 


, 2062 




2068 


SE615 


085C 


, 2065 




„„1^2075~ 


~— SE62Q- 


0862- -~- -:■ ■.., 


,1947, 2021* 2045, 


2081 


2080 


SE625 


0868 


, 2077 




2081 


SE630 


0869 


, 2079 
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2083 SE675 086A 
2090 SE690 0872 
2lOir— ~ST600 ~087E 
2102 ST601 087F 



c 



... — .. 2l 03_-_ 


ST607 


-0880 


210* 


ST608 


0881 


2105 


ST609 


0882 


— -— '212* 


SECT? 


— 0883 — 


2130 


SE707 


088B 


2135 


SE715 


0891 


r- — — 213&— 


-SE717 


0892 


21*1 


SE725 


0898 


2151 


SE729 


08A7 


-—• — --2±52--- 


-SE727 - 


~ 0-8*6— 


2158 


SE730 


08AF 


2161 


SE733 


08B3 


- —r- €175 — 


5E737 


--08C8- - 


•^ -2192' 


SE735 


080E 


219* 


SE770 


08E1 
- -0909— : — 


c<cco 


oTT W 


2231 


ST705 


0910 


2238 


ST706 


0919 


j , fliBf 


-5T703 


— 0930 


,,. CCSO 


•?'''••'.;■ 2262 


ST708 


0936 


& 2279 


ST707 


09*0 


i ^— -228%-— 


-STT«- 


— 0953 ---"- 


2300 


ST710 


096* 


2309 


ST711 


0971 


-err—— 23-23. -•- 


ST712 


-0985^ 


^' 2338 


ST715 


0999 


■ : :VW''---23*9.'-* : ' 


ST716 


09A9 


^ -2-359--- 


-SE755- 


— 89B7- 


2376 


SE775 


0902 


2378 


SE700 


09D* 


'■J'Z$ " : : 2379 '" '' 


SE710 


09D5 


■!•'■ ' .:■ 238* 


SE705 


09DA 


•* "" ; '' 9^nn' '■■ 


-SE786- 


- -090B— 


COtlt) 


2393 


ST700 


09E3 


2396 


ST701 


09E6 


•r-.-r^— -2397--r- 


-ST713- 


09E7 


VrW^ZW \ 


ST71* 


09E8 


%^.-- 2*1* 


SECT8 


09E9 


«-^_~ 2*£2^~ 


SE802 


-09F5- 


2*27 


SE80* 


09FC 


2*37 


SE805 


0A0C 


. , _:, ?hLC 


cr«( n._. 


--0A16--- 


C«t»r9; 


;>t»i» 


2*61 % 


SE815 


0A2C 


2*73 


SE820 


0A3B 


sas^-- CTty^ 


-^S£*22--- 


— 0A3E— - ; 


2*78 


ST815 


0A*2 


2*88 


SE827 


0A*F 


60*12800 D 


--..--.--—-. 



1971, 20*2, 2088 

188*, 2099, 216*, 3088 

1885, 1972, 1976, 20*0 

1892, 1920, 1978, 2056, 2068, 2072 



1886, 


1975 


..... ..... 


2055, 


206* 




1890, 


1977 




0320 




- 


213* 






2132 






21*0 






2138 






2160 






2157 


- - 


-•• 


2156 






2159 






2173 


- - 




217* 






2191, 


2355, 


2375 


2167* 


2317* 


236* 


2168, 


2365 




2169, 


2366 




2181, 


2193, 


2271, 2359 


2171, 


2273, 


2363, 2371 


2272 






227* 


— - — — - 


■-- - — ■ 


2275 






2311, 


2315 




2318, 


-2327, 


2358- :;;--- 7 


2361 






235* 







237* 

2031, 2131, 2137, 21*3, 21*6, 2163 
2350, 238*, -2518, 2592> 2752 ~ 
2383 
2382 

r 2391,-2372* 2391 
2152 
21*9, 2158 



2165, 2373 

0321, 2*26, 2550, 2605, 2611 
r-2*18 .._.,... - :... 

2*20, 2*21 
2*35 

2**3- .-. - 

2*59 
2*60 

-2*72—-- --■- ■ -■'■ ■■■ 

2*57, 2*6* 
2*86 
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2491 


ST800 


0A53 


2509 


ST803 


0A6B 


2536 - 


ST811 


~ 0A93 


2543 


ST812 


0A9E 


2551 


SE835 


OAAB 


2554 


ST801 


DAAF 


2563 


ST809 


OABB 


2570 


ST804 


0AC4 


2580 — 


-SE837 


OADi 


2607 


SE8«»5 


0AF8 


2613 


SE830 


0BO0 


2618 - 


-ST805 


0B06 


2620 


ST806 


0B08 


2621 


ST813 


0B09 


■ 2622- - 


St 8 14 


OBOA 


2624 


ST802 


OBOC 


2627 


ST810 


OBOE 


2629-- 


..-SE840-.- 


- 080 F- 


2635 


ST816 


0B17 


-2638—— 


—ST817 


- 0B2B- 


2664 


SECT9 


0B2C 


2667 


SE905 


0B30 


.2686- 


-SE910.-.- 


-.0849 


2688 


SE915 


0B4C 


2745 


SE935 


0R9C 


.2760 — — 


SE938— 


--OBAF 


2761 


SE932 


0BB1 


276i» 


SE934 


0BB4 


2767- - 


-SE939- 


0B87 


2771 


SE936 


OBBB 


2776 


SE950 


0BC3 


.lg.78-j„l_ 


;~S£930~- 


i.'--0.BC9~ 


2796 


SE9W 


OBDF 


2801 


SE945 


0BE5 


_2a09_- 


—SE965-. 


-OBEB 


2812 


ST918 


OBFO 


2815 


ST920 


0BF4 


^2836 - - 


- SE955-- 


~-OCil~ 


28« 


SE957 


0C18 


2876 


ST913 


0C4C 


-2-907. 


-SE970.,. 


-,0C7C- 


2933 


ST919 


OCAO 


2948 


SE992 


0CB6 


2956- - 


~,$E994 ~ 


-OCBE 


2957 


SE990 


OCBF 


2965 


SE998 


0CC9 


.2976— 


-.SE996-. 


0CD7 


2978 


- ST912 


OC09 


2986 


SE960 


0CE2 


-2992 ~ 


--SE920 


0CE9 


2999 


SE925 


OCFO 


3000 


ST901 


0CF1 



2431, 2526 

2*»50 

2586 

2598 

2l»87, 2549, 2608 

2429, 2582 



2451, 

2578 

2604 

2529, 

2462, 

2528, 

2520, 

2517 

2448 

2417, 

1007, 

2885, 

2422, 

2423 

0322 

2665 

-2666 
2685 
2794 
2758, 
2763 
2762 

2757 

2765 
2800 
277* . 
2780 
2795, 

-2900- 
2824, 
2691 
2842 
2841 
2881, 

-2903 
2689 
2956, 
2954 
2952 
2961 
2955 
2899 
2720, 
2998. 
2997 
2772, 



2610 



2593, 2625 
2474, 2545, 2600 
2584 
2579 



2432, 2516, 2591, 2607 
1523, 2541, 2597, 2634, 2742 
3145 
2423 



2766 



2799 
2852 

2893 
2975 

2790, 2845, 2999 
2797, 2990, 2996 
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ORHP30 




3001 


ST909 


0CF2 


3003 


SE980 


0CF3 


^811 


SE985 


OCFF 


3017 


ST900 


0006 


3019 


ST927 


OB08 


— 302% 


ST92% 


OOOE 


3025 


ST90% 


OOOF 


3026 


ST925 


onto 


■"- ~ ~ ~3027 " 


~ST926 


0O11 


3028 


ST905 


0O12 


3029 


ST907 


0D1C 


-- - 3033 - 


ST908 


003 A 


3036 


ST929 


0O%8 


3038 


ST921 


0055 


— - -^-JtM" 


- ST922 


0058 


30%0 


ST923 


0D59 


3041 


ST91% 


0O5A 


--.- — H30%3 


:--ST9i5~- 


-8068- 


30%% 


ST916 


0069 


30%8 


ST917 


0080 


— 3^50— ^ "3T928 " 


0O9O 


3059 


SECTA 


OD90 


3062 


SEAOO 


0OA1 


......... -30-7-9- 


~ SEA05-- 


-8BB6 


3081 


SEA18 


0088 


3093 


SEA15 


0OC8 


— ----3HJ7-- 


— -ST*8i— 


BOOB 


3115 


STA02 


0DE5 


3131 


STAOO 


0OF8 


— 31-36- 


--•■- STA83 - 


-BOFE 


3155 


SEA20 


BEIA 


3156 


STAB% 


0E1C 


~ 31*5 - 


•'— SECfB— ^~8EiO 


3202 


STBOO 


0E50 


3206 


STB01 


0E66 


-— --.— 321 %-r 


— ITt888 


-8E67 


3231 


ITTOOO 


■;. 0E7G 


3237 


ITT 005 


OEAA 


--—•• -3238 


-- -JTTWHh- 


-0EAB- 


32%0 


ITT015 


OEAF 


32%8 


A5 


OEBO 


3256 


BELL 


OFOD 


: -3257-- 


RBBUF- 


OFOE- 
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2987, 2991 

2810, 2916, 3009 

273%, 2936, 3023 

2673, 2687, 27%3, 293% 

3012 

2959, 2965, 2972 

27%5, 2 7% 6 

2957, 297% 

29%6* 2953 

27%5, 2801, 2805 
2801, 2962, 2963 



2962, 2969, 2970 

2921* 2960* 2967 

2968 

286%, 2865, 2969 

286% -- 

290%, 2905 

290%, 2979, 2980 
-2979 

€323 

3060 

3061 .:--.- 

3078 

315% 

3091,-3116, 31%9 

3092, 3150 

3068, 3080, 31%6 
-3120, 31%8 



3153 
3089, 3152 

•0^2%- --^--—--———^ ■•-■ — - •■- — 

3165, 3166 
3165 

8223,-3217 -.,— - ■•■ 

3227, 3228 
3221 

3222 ----- — ------ : ■■'—'- ■-- — 

3226, 3228 

0226, 0%08, 0%1%, 0%69, 080%, 0822 
^-882%, 8999* 1020, 1225, 1235, 3261 



* 


0621, 


3261 










♦ 


0560, 


09%5, 


1052, 


1100, 


1109, 


1122 


, 


1125, 


1633, 


16%1, 


169%, 


1756, 


1757 


, 


1983, 


1999, 


2025, 


2027, 


2289, 


2309 


-"» 


2338, 


23%5, 


2%28, 


2563, 


2588, 


2828 


, 


2829, 


28%3, 


2862, 


2879, 


2910, 


2935 


, 


29%1, 


2977, 


308%, 


3098, 


3133, 


3262 



3258 WRBUF 1B0E 



, 0581, 09%2, 1056, 1%15, 1%23, 15%7 
• 1577, 1599, 1905, 1912, 1951, 1959 
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3259 ORMENO 270E 

3260 AIDDP1 0000 

3261 AI0DP2 0061 

3262 AIDDP3 0087 



, 2023, 2052, 2124, 2127, 2197, 2208 

, 2214, 2221, 2258, 2281, 2296, 2502 

,2513, 2695, 2702, 2719, 2733, 2753 

, 2775, 2788, 2835, 284«», 2947 
, 3262 
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»•* A L P HA BET I CI L S R T F SYHBOLS •♦♦ MMMN 



----^5-"—-; 


3248- 


AFESYM- 


8139 


AIDOP1 


3260 


AIO0P2 


3261 


AID0P3 


3262 


BEGIN 


8223 


BELL 


3256 


8IAS 


0224 


BITOO 


0084 


BIT01 


0085 


BIT02 


8086 


BIT03 


0087 


BIT04 


0088 


BIT05 


0089 


BIT06 


0090 


r: BITB7- 


0091 


BIT08- 


:B892 


9IT09 


0093 


BIT10 


0094 


8IT11 


095 


BIT12 


0096 


BIT13 


0097 


3IT14 


0098 


BIT15 


0099 


CALLP 


0185 


CH3RSP 


0168 


CHADR 


0174 


CHANMO 


0142 


CHARSP 


0166 


CHRSP 


0165 


— • ~-CHSTr-; :A 


01:73 


^CHST3 : 


0176 


CKNORM 


0748 


CKRTN 


0745 


CKST 


0064 


CKSTOO 


0506 


CKST01 


0507 


CKST02 


0508 


CKST03 


0509 


CKST04 


0510 


CKST05 


0511 


CKST06 


0512 


CKST07 


0513 


CKST08 


0514 


CKST09 


0515 


— CKST10 


0516 


CLRPP 


0070 


COMUSE 


0119 


CONTRO 


0053 


CRLUNO 


0193 


CRSUNO 


0194 


OATLGH 


0132 


ORE000 


0229 


ORE003 


0241 


0RE004 


0244 


< . DREdos; 


0248 


ORE 007 


0273 


DREOIO 


0267 


ORE012 


0287 


0RE015 


0297 


—- ©RE0i:7 u 


-~O30? 


OREO20- 


-0292- 


ORE 830" 


0288 


ORE035 


0332 


ORE040 


0340 


DRE045 


0343 


OREO 47 


0345 


DRE050 


0356 


ORE052 


0362 


ORE055 


0369 


ORE065 


0749 


ORE068 


0505 


ORE070 


0530 


DRE075 


673 


DRE077 


0681 


— -0R€B8Br 


0782 


ARE082 


0705- 


ORE085 


0772 


0RE887 


0778 


QRE088 


0779 


: ORE090 


0850 


ORE 093; 


0861 


ORE 095 


0868 


ORE1BB 


0877 


0RE10 5 


0900 


s v -': ; DREiio> 


0909 


0RE125 


0372 


ORE 150 


0981 


0RE155 


0988 


DRE168 


0989 


; ^^BR€-±?0--~8«3fl- 


-©RE20D- 


-0394" 


- ORE 20 3- 


0429 


-ORE205 


8439 


ORE210 


0442 


DRE215 


0443 


0RE217 


0452 


RE 220 


0460 


0RE225 


0479 


ORE300. 


0922 


DRE305 


0948 


DRE308 


0959 


DRE310 


0967 


0RE315 


0971 


0RE320 


0941 


—- -flRE4Bfr 


--8998 


ORC405- 


10 03 


0RE407 - 


1027 


0RE418 


1033 


ORMENO 


3259 


DRTOBO 


0253 


ORTOOl 


-0255 


DRT002 


0256 


DRTdd3 


0258 


DRT004 


0259 


PRT005 


0265 


ORT006 , 


0266 


DRT007 


0361 


ORTOdS 


0385 


ORT009 


0337 


-^-BRTBIO- 


-*a-3- 


ORTdll- 


0753- 


ORT012- 


0756 


ORT013 


8757 


0RT014 


0758 


0RT015 


0742 


DRT016 


0893 


ORT017 


0894 


ORT018 


d895 


ORT019 


0896 


ORT020 


0897 


ORT021 


0898 


DRT022 


0899 


ORT023 


0892 


DRT024 


0646 


—~ BRT-0«5~ 


-8*47- 


ORT-026' 


-8278- 


-BRT027 


0339 


0RT028 


0338 


ORT200 


0485 


DRT20t 


0486V 


. DRT202 


0487 


ORT203 


0488 


DRT204 


489 


ORT205 


0490 


DRT206 


^0491 


0Rl2d7 


0492 


ORT208 


0493 


ORT300 


0964 


0RT301 


0972 


-^ommt^ 


0942 


BRT383- 


; -0945 


"ORT304- 


0973 


~ CRT 40 8 


1041 


ORT401 ; 


1042 


DRT402 


1043 


OSELIN 


0078 


EQUIPT 


0143 


ERE000 


0597 


ERE015 


0602 


ERE020 


0611 


ERE025 


0620 


ERE030 


0623 


ERRFLE 


0192 


ERROR 


066 


v,-ERRTNv™^ 8744 


ERIOOO- 


-0683- 


-ERT0B2 


0614 


ERTO03 


0687 


ERT004 


0609 


V^ttitHkrj, 


016B 


EXIT 


0055 


FAST 


0743 


FERR 


0746 


FIXDLT 


0068 


■;"-' v Fii^:v;;;--: 


;:0B62 


FNOO 


0538 


FN01 


0540 


FN02 


0541 


FN03 


0542 


'i-r-fltt*^' 


-8543 


-fhorm- 


9747 


FWAET - 


- 0075 


THAI 


0074 


H800F - 


0102 


H007F 


0115 


H00F0 
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